'HTTP/1.0 503 Service Unavailable' ??

Co to oznacza ?? 'HTTP/1.0 503 Service Unavailable'

dokładnie to samo co pisze - że serwis unavailable jest - znaczy niedostępny, zniszczony, w kategorii delphi jest więc bawiąc się w wróżkę - włącz handleredirects na true (to przy okazji bo błąd nie ten), ustaw przeglądarkę na znaną - podszyj się np pod IE, sprawdź czy strona nie ma mieć "www" a może zapomniałeś

Błąd występuje kiedy chce wykonac kod:

procedure TForm1.Polaczhttp(Sender: TObject);
var
 Odpowiedz : TStringStream;
begin
Odpowiedz := TStringStream.Create('');
HTTP.Host :='appmsg.gadu-gadu.pl';
HTTP.Get('/appsvc/appmsg3.asp?fmnumber=NUMER_GG&version=6,1,0,155&lastmsg=0', Odpowiedz);
ShowMessage(Odpowiedz.DataString);
Odpowiedz.Free;
end;

INDY napisał(a)

Błąd występuje kiedy chce wykonac kod:

procedure TForm1.Polaczhttp(Sender: TObject);
var
 Odpowiedz : TStringStream;
begin
Odpowiedz := TStringStream.Create('');
HTTP.Host :='appmsg.gadu-gadu.pl';
HTTP.Get('/appsvc/appmsg3.asp?fmnumber=NUMER_GG&version=6,1,0,155&lastmsg=0', Odpowiedz);
ShowMessage(Odpowiedz.DataString);
Odpowiedz.Free;
end;

host ustawiasz jak chcesz pobrać stronę inną metodą, stosujesz gotową funkcję Get a ona już sobie ustawia wszystkie hosty, porty, odwala za ciebię całą brudną robotę, więc nie podajesz jej /appsvc/... tylko ...Get('http://appmsg.gadu-gadu.pl/appsvc/...

Jednak błąd polegał w linijce :

HTTP.Get('/appsvc/appmsg3.asp?fmnumber=NUMER_GG&version=6,1,0,155&lastmsg=0', 

Powinno być :

HTTP.Get('/appsvc/appmsg4.asp?fmnumber=NUMER_GG&version=6,1,0,155&lastmsg=0', 

appmsg3 - obsług z szyfrowaniem
appmsg4 - obsługa bez szyfrowania

GG nie wykorzystuje szyfrowania.