Hello
I am getting this error when doing a GET in a url.
"404 Connection aborted on request" or this mistake access violation in delphi xe2
This is my code in the button
var
data: String;
HttpClient: TSslHttpCli;
xmlDoc: TXMLDocument;
dataStream: TMemoryStream;
begin
mResult.Lines.Clear;
xmlDoc := TXMLDocument.Create(Self);
HttpClient := TSslHttpCli.Create(nil);
HttpClient.ContentTypePost := 'text/xml';
HttpClient.URL:= 'https://www.poemist.com/api/v1/randompoems';
HttpClient.RcvdStream := TStringStream.Create('');
try
try
ShowMessage(IntToStr(HttpClient.StatusCode));
//HttpClient.GetASync;
HttpClient.Get;
ShowMessage('-3-1-');
{ SslHttpCli.SendStream := dataStream;
SslHttpCli.SendStream.Write(Data[1], Length(Data)) ;
SslHttpCli.SendStream.Seek(0,0);
mResult.Lines.LoadFromStream(dataStream); }
// xmlDoc.LoadFromStream(HttpClient.RcvdStream);
// xmlDoc.Active := True;
dataStream.LoadFromStream(SslHttpCli.RcvdStream);
mResult.Lines.LoadFromStream(dataStream);
// mResult.Lines.LoadFromStream(HttpClient.RcvdStream);
Except
raise;
end;
finally
HttpClient.Free;
xmlDoc.Free;
end;