Witam. Chciałem skorzystać w programie z konta premium na hostingu wupload.com więc pobrałem darmową bibliotekę Synapse do Delphi która jest podobno prostsza niż Indy. Skorzystałem z gotowego źródła które było w paczce. Mogę wysyłać metodą post do moich plików .php i dostawać odpowiedzi, jednak nie potrafię się zalogować na tej stronie.
function ProxyHttpPostURL(const URL, URLData: string; const Data: TStream): Boolean;
var
HTTP: THTTPSend;
begin
HTTP := THTTPSend.Create;
try
HTTP.ProxyHost := Form1.Edit8.Text;
HTTP.ProxyPort := Form1.Edit9.Text;
HTTP.Document.Write(Pointer(URLData)^, Length(URLData));
HTTP.MimeType := 'application/x-www-form-urlencoded';
Result := HTTP.HTTPMethod('POST', URL);
Data.CopyFrom(HTTP.Document, 0);
finally
HTTP.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
st: TMemoryStream;
begin
st:=TMemoryStream.Create;
try
ProxyHTTPpostURL('http://www.wupload.com/account/login', 'email=verona&redirect=%2F&password=spadaj&rememberMe=1', st);
st.Seek(0,soFromBeginning);
Memo2.Lines.LoadFromStream(st);
finally
st.Free;
end;
end;
W ostateczności memo jest puste - żadnego result. Po wykonaniu GET nadal widać w źródle, że jestem niezalogowany. Akcja logowania prześledzona przez wireshark.
Co robię nie tak?
Proszę o pomoc