Cześć mam kłopot z strumieniem chce pobrać ikonke statusu z Gadu-Gadu. Tylko wyskakuje mi bład:
Exception class EStreamError with message Tstream.Seek not implemented
A jak ustawiam Rcv.Seek(32,32) mam ten sam błąd i nie wiem co jest źle.
Oto moje źródło:
var
Snd : TStringStream;
Rcv : TStream;
begin
Snd := TStringStream.Create('');
Rcv := TStream.Create;
Snd.WriteString(Format('id=%s',[edit1.text]));
try
HTTP.Post('http://www.gadu-gadu.pl/users/status.asp',Snd,Rcv);
except
raise exception.Create('Blad');
end;
Image1.Picture.Graphic.LoadFromStream(Rcv);
Snd.Free;
Rcv.Free;
end;
Z góry dziękuje za udzieloną pomoc i pozdrawiam [cya] </span>