[Delphi] Mam kłopot z Stream

0

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>

0

Sprawa nie jest taka prosta.
Ja ci mogę zaproponować jedynie:

var
Rcv : TMemoryStream;
begin
Rcv := TMemoryStream.Create;
IdHTTP1.Get('http://www.gadu-gadu.pl/users/status.asp?id=' + Edit1.Text, Rcv);
Rcv.SaveToFile('plik.gif');
Rcv.Free;
end;

...bo problem leży w tym że ściągany obrazek jest w formacie
gif a delphi nie ma tak Od razu modułu do gifów jest tylko JPEG
Więc jak już znajdziesz coś do gifów w necie to pokombinuj.

0

Do gifow? GifImage jest ok.

0
<font color="green"> var Rcv : TMemoryStream; begin Rcv := TMemoryStream.Create; IdHTTP1.Get('http:// www.gadu-gadu.pl/users/status.asp?id=' + Edit1.Text, Rcv); Rcv.SaveToFile('plik.gif'); Rcv.Free; end; </span>

Ten sposób opisany nie działa prawidłowo. Ściągam plik, ale żaden program nawet IE i inne program do przeglądania plików graficznych, nie potrafi go otworzyć !!!

0

Ten sposób opisany nie działa prawidłowo. Ściągam plik, ale żaden program nawet IE i inne program do przeglądania plików graficznych, nie potrafi go otworzyć !!!

dziwne, dziwne, mi to IE otwierał. [???]
a czy zapisany plik.gif ma w ogóle jakąś objętość ?
może forum jakiś błąd wkradło w kod ?

0
<font color="green"> dziwne, dziwne, mi to IE otwierał. a czy zapisany plik.gif ma w ogóle jakąś objętość ? </span>

Tak miał objętość 156 bajtów. Jak dałem na włąściowści to pokazuje mi ze format 16x16 8 bitowy Gif. Ale nie potrafi go otworzyć sprawdzałem na swoim dysku inne gify i bezproblemu. Spróbowałem nawet zciągnąć plik nie przez TMemoryStream ale przez TFileStream i tez nie pomogło

0

witajcie widze ze macie problem ja sukałem po stronach kodu do wyświetlania na stronie statusu i zaden nie działał i w SPACJA końcu znalazłe i postanowiłem sie podzielić z wami

[code]http://www.gadu-gadu.pl/users/status.asp?id=000000&styl=1/2[/code]

myśle ze coś z tego wyciągniecie bo to jest na stronę a czy to bedzie działać w programie tego nie wiem ale na strone to działa 101%

1 użytkowników online, w tym zalogowanych: 0, gości: 1