Delphi POST
Delphi POST
Zdravim, mam jednoduchu otazku, ale vsetky riesenia, co som nasiel su priliz zlozite.
Chcem pomocou delphi poslat POST dotaz do mojho PHP skriptu. Neda sa to vyriesit nejakym jednoduchym riesenim? Ak ano, ako? Vdaka.
Chcem pomocou delphi poslat POST dotaz do mojho PHP skriptu. Neda sa to vyriesit nejakym jednoduchym riesenim? Ak ano, ako? Vdaka.
-
Nadeo
Guru wannabe
- Príspevky: 2202
- Registrovaný: 04 nov 2006, 19:38
- Bydlisko: BA/LV
- Kontaktovať používateľa:
Re: Delphi POST
Kód: Vybrať všetko
Socket.Request.ContentType := 'application/x-www-form-urlencoded';
Socket.Request.UserAgent := "My agent name";
Pars := TStringList.Create;
Pars.Add('txtTarget=abc');
Pars.Add('&txtArea=area');
Pars.Add('&txtTitle=Robot');
Pars.Add('&txtPageNr=1');
Pars.Add('&txtItemsPage=10');
Res := TStringStream.Create('');
Socket.Post(URL, Pars, Res);Re: Delphi POST
Boze, to sa jak instaluje ta kniznica?
Pochuj suborov, a ziadny readme 
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
Re: Delphi POST
indy bolo v delphi 7 uz defaultne pridane ak ma pamat neklame
Re: Delphi POST
hmm, ked dam "indy" do uses, tak proste... vyhodi chybovu hlasku, ze nenaslo indy.dcu
Re: Delphi POST
v delphi 7 enterprise edition v ostatych ediciach nebol, ja by som si stiahol enterprise a potom nemusis do uses nic pridavat ides automaticky ak sa ti to nechce stahovat tak sa pozri po synapse
Re: Delphi POST
No, tak som odinstaloval Personal a nainstaloval som si Enterprise, a ked som si to skupil okopirovat priamo z Nadeovej ruky, :
Tak mi nevezme typ idhttp vo var...
Netreba includnut nieco? Lebo ked dam indy do uses, tak
[Fatal Error] File not found: 'c:\program files (x86)\borland\delphi7\Rave5\Lib\indy.pas'

Kód: Vybrať všetko
procedure TForm1.Button1Click(Sender: TObject);
var
Socket:idhttp;
begin
Socket.Request.ContentType := 'application/x-www-form-urlencoded';
Socket.Request.UserAgent := "My agent name";
Pars := TStringList.Create;
Pars.Add('txtTarget=abc');
Pars.Add('&txtArea=area');
Pars.Add('&txtTitle=Robot');
Pars.Add('&txtPageNr=1');
Pars.Add('&txtItemsPage=10');
Res := TStringStream.Create('');
Socket.Post(URL, Pars, Res);
end;Netreba includnut nieco? Lebo ked dam indy do uses, tak
[Fatal Error] File not found: 'c:\program files (x86)\borland\delphi7\Rave5\Lib\indy.pas'
Re: Delphi POST
mam, mam
Re: Delphi POST
a skusal si tam pridat idHttp, normalne ako button ?
Re: Delphi POST
Ano, hned ako si mi poslal img tej listy. Dakujem Ti mockrat, k+ 