Witam,
chciałbym dodać do swojego programu możliwość wysyłania sms-ów (powiadomień na moją komórkę) w zależności od wyników jakie wypluje. Zrobiłbym to z płatną www.smsapi.pl (post lub get i po sprawie) problem w tym, że trzeba prowadzić działalność by z tego skorzystać. Dlatego chciałbym zrobić to przez stronę orange. Tu zaczyna się problem. Nie umiem wypełnić formularza by tam się zalogować a co dopiero wysłać sms-a. Mógłby ktoś poprawić poniższy kod by się jakoś tam zalogować?
procedure TForm1.Button1Click(Sender: TObject);
var
HTTP : TidHTTP;
html, s : string;
i : integer;
StreamIn : TStringStream;
Plik : TStringList;
begin
HTTP := TidHTTP.Create(nil);
StreamIn:= TStringStream.Create('');
HTTP.IOHandler:= Form1.IdSSLIOHandlerSocketOpenssl1;
Http.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.0; pl-PL; rv:1.7.6) Gecko/20050226 Firefox/1.0.1';
StreamIn.WriteString('login-field=XXXXX&password-field=XXXXX');
try
HTTP.HandleRedirects := True;
HTTP.AllowCookies := True;
HTTP.Request.ContentType :='application/x-www-form-urlencoded';
html := HTTP.Post('https://www.orange.pl/start.phtml',StreamIn);
plik:= TStringList.Create;
plik.Add(html);
plik.SaveToFile('C:\wynik.html');
finally
FreeAndNil(HTTP);
plik.Free;
end;
end;
dodam, że dll-ki do ssla są i działają, po prostu nie wiem co ma się znaleźć w nagłówku (nie umiem użyć sniffera), pewnie "kukisy" też nie działają z powyższym kodem jak należy - średnio się na tym znam. Szukam "dobrodzieja" obeznanego w tematyce, który pomoże. Byłbym bardzo wdzięczny. PS googlowałem dużo, nie odsyłajcie proszę do "szukajek".