Witam..
Chce od pewnego czasu probuje dostac sie do magic czata.wpl niestety bez skutku:
moj kod..
Step1:
// pobranie ciastek..
// pobranie obrazka
function DownloadFile(Adres, Gdzie: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(Adres), PChar(Gdzie), 0, nil) = 0;
except
Result := False;
end;
end;
var
HTML,images : String;
I,s : Integer;
w : TStringList;
begin
W := TStringList.Create;
W.Text := HTTP.Get('http://czat.wp.pl/i,17732,chat.html'); //
images:=w.Strings[156];
images:=COPY(images,POS('http',images),length(images));
DELETE(images,length(images)-1,length(images));
// i pobieramy obrazek..
if DownloadFile(Images,ExtractFilePath(ParamStr(0))+'obrazek.png')
then img1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'obrazek.png');
W.Free;
end;
Step2:
// server mili kod zabezpieczajacy z nickiem..
// zapytanie
// w edit jest kod z obrazka..
memo1.Text :=HTTP.Get('http://czat.wp.pl/chat.html?i=17732&auth=nie&nick=asd&simg='+edit1.text+'&x=0&y=0'); //
i powinienem dostac.. strone z zawartoscia :
Niestety dostaje strone z tym ze sesja wygasla..: