Arno Garrels wrote:
> Hello Fred,
>
> Do not free the RcvdStream, the component should free it.
Sorry, forget this statement, it's nonsense. I'll look at this
tomorow.
--
Arno Garrels
> Fred wrote:
>> Hello
>>
>> I'm obviously doing it wrong: After authenticating to a web server
>> with POST and receiving some cookies, I'm getting an Access Violation
>> while I'm copying the response into a memo:
>>
>> ===========
>> procedure TForm1.Button1Click(Sender: TObject);
>> var
>> Data : String;
>> begin
>> Data := 'login=jdoe&password=test';
>>
>> With HttpCli1 do begin
>> SendStream := TMemoryStream.Create;
>> SendStream.Write(Data[1], Length(Data));
>> SendStream.Seek(0, soBeginning);
>>
>> RcvdStream := TMemoryStream.Create;
>> Connection := 'Keep-Alive';
>> URL := MyURL;
>>
>> try
>> Post;
>> except
>> ShowMessage('POST failed');
>> SendStream.Free;
>> RcvdStream.Free;
>> Exit;
>> end;
>>
>> ShowMessage('1');
>> SendStream.Free;
>> RcvdStream.Seek(0,0);
>>
>> ShowMessage('2');
>> Memo1.Lines.LoadFromStream(RcvdStream);
>>
>> ShowMessage('3');
>> RcvdStream.Free;
>>
>> ShowMessage('4');
>>
>> //Close;
>> ShowMessage('5');
>>
>> //EAccessViolation with message 'Access violation at address
>> 0047DA12 in module 'Project1.exe'. Read of address 00000000'.
>> //Occurs in procedure THttpCli.CleanupRcvdStream;
>> end;
>> end;
>> ===========
>>
>> Any idea why this error occurs? Timing issue maybe?
>>
>> Thank you.
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
