Ĺadny brzuch
Być może ten temat już był na forum ale nie mogę znalesc. CHodzi ot o by wykryć dostępność gg. Jeśli np numer xxxxxxx jest dostępny to program [mój] wykonuje jakąś procedure. Wiem żę trzeba się bawić z jakimś protokołem gg czy jakoś tam ale pomóżcie
Ściągnij plik http://status.gadu-g...NUMER_GG&styl=2 i sprawdź co w nim jest: 1 - user ukryty/niedostępny; 2 - user dostępny - tylko jeśli ma wyłączoną opcję "Tylko dla znajomych" ;)
Ściągnij plik http://status.gadu-g...NUMER_GG&styl=2 i sprawdź co w nim jest: 1 - user ukryty/niedostępny; 2 - user dostępny - tylko jeśli ma wyłączoną opcję "Tylko dla znajomych" ;)
a możecie podać jakieś kawłki kodu albo jakieś pomoce? :)
Lub jak komuś zależy na oszczędności kodu - URLDownloadToFile ;)
function URLDownloadToFileA(i:integer; f1,f2:pchar; j, k:integer):integer; stdcall; external 'urlmon.dll'; procedure TForm1.Button1Click(Sender: TObject); var f:textfile; st:integer; begin if URLDownloadToFileA(0,'http://status.gadu-gadu.pl/users/status.asp?id=NUMER_GG&styl=2' ,'.\status.txt',0,0)=0 then begin assignfile(f,'.\status.txt'); reset(f); readln(f,st); case st of {...} end; closefile(f); end; end;
Użytkownik Cyrkiel edytował ten post 22 czerwiec 2005, 15:44
a możecie podać jakieś kawłki kodu albo jakieś pomoce? :)
chodzi o delphi :)
wyskakuje mi błąd:
[Error] Unit1.pas(36): ')' expected but ';' found
przy linijce
X := StrToInt(idHTTP1.Get('http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2');
Nie zamknoles nawiasu poprostu:
X := StrToInt(idHTTP1.Get('http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2'));
Lub jak komuś zależy na oszczędności kodu - URLDownloadToFile ;)
a co oznacza błąd:
"Socket Error # 11004"
??
Sprawdziłem i nie stwierdziłem żadnych komplikacji :P
a co oznacza błąd:
"Socket Error # 11004"
?? Sprawdź adres strony ;)
a te IdHTTP to z Indy9 [w ekspercie był] wziąść?? bo ten bląd to może od tego... :huh:
a te IdHTTP to z Indy9 [w ekspercie był] wziąść?? bo ten bląd to może od tego... :huh: Tak, to jest w Indy, ale nie sądzę, by od tego był błąd ;)
wziąść??
a może ta strona jest zła??
'http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2
a może ta strona jest zła??
'http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2 Zła: statusy -> status :P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Ściągnij plik http://status.gadu-g...NUMER_GG&styl=2 i sprawdź co w nim jest: 1 - user ukryty/niedostępny; 2 - user dostępny - tylko jeśli ma wyłączoną opcję "Tylko dla znajomych" ;)
Ściągnij plik http://status.gadu-g...NUMER_GG&styl=2 i sprawdź co w nim jest: 1 - user ukryty/niedostępny; 2 - user dostępny - tylko jeśli ma wyłączoną opcję "Tylko dla znajomych" ;)
a możecie podać jakieś kawłki kodu albo jakieś pomoce? :)
Lub jak komuś zależy na oszczędności kodu - URLDownloadToFile ;)
function URLDownloadToFileA(i:integer; f1,f2:pchar; j, k:integer):integer; stdcall; external 'urlmon.dll'; procedure TForm1.Button1Click(Sender: TObject); var f:textfile; st:integer; begin if URLDownloadToFileA(0,'http://status.gadu-gadu.pl/users/status.asp?id=NUMER_GG&styl=2' ,'.\status.txt',0,0)=0 then begin assignfile(f,'.\status.txt'); reset(f); readln(f,st); case st of {...} end; closefile(f); end; end;
Użytkownik Cyrkiel edytował ten post 22 czerwiec 2005, 15:44
a możecie podać jakieś kawłki kodu albo jakieś pomoce? :)
chodzi o delphi :)
wyskakuje mi błąd:
[Error] Unit1.pas(36): ')' expected but ';' found
przy linijce
X := StrToInt(idHTTP1.Get('http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2');
Nie zamknoles nawiasu poprostu:
X := StrToInt(idHTTP1.Get('http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2'));
Lub jak komuś zależy na oszczędności kodu - URLDownloadToFile ;)
a co oznacza błąd:
"Socket Error # 11004"
??
Sprawdziłem i nie stwierdziłem żadnych komplikacji :P
a co oznacza błąd:
"Socket Error # 11004"
?? Sprawdź adres strony ;)
a te IdHTTP to z Indy9 [w ekspercie był] wziąść?? bo ten bląd to może od tego... :huh:
a te IdHTTP to z Indy9 [w ekspercie był] wziąść?? bo ten bląd to może od tego... :huh: Tak, to jest w Indy, ale nie sądzę, by od tego był błąd ;)
wziąść??
a może ta strona jest zła??
'http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2
a może ta strona jest zła??
'http://statusy.gadu-gadu.pl/users/status.asp?id=' + numer + '&styl=2 Zła: statusy -> status :P