Hello Fred, Do not free the RcvdStream, the component should free it.
-- Arno Garrels [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html 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
