Witam! Dlaczego wyskakuje mi kod strony do logowania a nie po logowaniu?? Mam taki kod, że daje zmienne: login, hasło i request server (bo tego chyba wymaga allegro przy logowaniu). Czy może trzeba zmienić coś we właściwościach komponentu? Z góry thx for odp. Kod się prezentuje tak:
procedure TForm1.startClick(Sender: TObject);
var
Input, OutPut : TStringStream;
begin
Input := TStringStream.Create('');
Output := TStringStream.Create('');
try
start.Enabled := False; // zablokowanie przycisku
Input.WriteString(Format('user_login=%s&user_password=%s&request_server=%s', [edit1.Text, edit2.Text, edit3.text]));
komponent1.Post('http://www.allegro.pl/login.php', // wyslanie danych ze
//strumienia do skryptu
Input, Output);
if output.datastring <>'' then begin
Messagebox(Handle, Pchar(output.datastring),'ddd', mb_ok);
end;
finally
{ zwolnienie zasobow }
Input.Free;
Output.Free;
start.Enabled := True;
end;
end;
Chodzi mi po prostu o zalogowanie się do allegro, wie ktoś jak to zrobić? Z góry thx!
//Wiesz co to jest TAGI DELPHI ? Wiesz co to jest EDYCJA POSTOW? -mL