Invalid Class Typecast exception in Delphi 6
Posted: Thu 06 Feb 2020 13:33
Hello
I am trying to use Devart SecureBridge Trial version 9.2.4 26-Dec-19 for Delphi 6. My Delphi version is Enterprise 6.0 (Build 6.240) Update Pack 2. I am executing such code and when I call Request.GetResponse; I get an Invalid Class Typecast exception. I have found similar issue viewtopic.php?f=27&t=39783
code:
var
Request: TScHttpWebRequest;
Response: TScHttpWebResponse;
ResponseStr: string;
begin
Request := TScHttpWebRequest.Create('https://api.smsapi.pl/user.do');
try
Request.Method := rmGet;
Request.ContentType := 'application/json';
Request.Headers.Add('smsapi_username’,’xxx’);
Request.Headers.Add('smsapi_password’,’xxx’);
Request.Headers.Add('credits','1');
Request.Headers.Add('details','1');
Response := Request.GetResponse;
ResponseStr := Response.ReadAsString;
Response.Free;
finally
Request.Free;
end;
I am trying to use Devart SecureBridge Trial version 9.2.4 26-Dec-19 for Delphi 6. My Delphi version is Enterprise 6.0 (Build 6.240) Update Pack 2. I am executing such code and when I call Request.GetResponse; I get an Invalid Class Typecast exception. I have found similar issue viewtopic.php?f=27&t=39783
code:
var
Request: TScHttpWebRequest;
Response: TScHttpWebResponse;
ResponseStr: string;
begin
Request := TScHttpWebRequest.Create('https://api.smsapi.pl/user.do');
try
Request.Method := rmGet;
Request.ContentType := 'application/json';
Request.Headers.Add('smsapi_username’,’xxx’);
Request.Headers.Add('smsapi_password’,’xxx’);
Request.Headers.Add('credits','1');
Request.Headers.Add('details','1');
Response := Request.GetResponse;
ResponseStr := Response.ReadAsString;
Response.Free;
finally
Request.Free;
end;