Hello!
>[..]
> procedure TSplashForm.HttpCliDocEnd(Sender: TObject);
> begin
> if HttpCli.RcvdStream <> nil then begin
> HttpCli.RcvdStream.Free;
> HttpCli.RcvdStream := nil;
> end;
> end;
>
> procedure TSplashForm.HttpCliRequestDone(Sender: TObject;
> RqType: THttpRequest; ErrCode: Word);
> var
> i: integer;
> sl: TStringList;
> b: Boolean;
> sReleaseDate: string;
> begin
> if ErrCode = 0 then
> begin
> sl := TStringList.Create;
> sl.LoadFromStream(HttpCli.RcvdStream); <<<< AV here
[..]
> What am I doing wrong?
Probably you're freeing destination stream before using it. Put something
like
if HttpCli.RcvdStream=nil then
ShowMessage('RcvdStream is NIL, click OK to crash.');
before "sl.LoadFromStream(HttpCli.RcvdStream);" to check whether that's the
case.
--
Piotr Dałek
enigmati...@interia.pl
----------------------------------------------------------------------
Zyskaj tak jak ja 9% na lokacie w pierwszym miesiacu!
Sprawdz! http://link.interia.pl/f207b
--
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
