Скачать: CL | DM;

PHP и Delphi   Найти похожие ветки 

← →
desam_   (2005-08-29 02:25) [0]

Дароф всем!
Программа на Delphi обращается к скрипту на PHP по такому URL: http://www.site.ru/script.php?get=name

Исходя из значения переменной get в адресе, php скрипт выполняет определенную работу. Как отправить результат этой работы программе на Delphi? Вообщем, это всё как-то на PHP делается. Говорят, что через сокеты, а я, млин, с сокетами не разу не работал. Может кто подскажет?

---

← →
KilkennyCat ©   (2005-08-29 02:34) [1]

function TForm1.GetData(const name : string) : string;
var
 hHttpSession, hReqUrl : Hinternet;
 Buffer : array [0..1023] of Char;
 nRead : Cardinal;
 strRead, StrUrl : string;
begin
 strUrl := "http://www.site.ru/script.php?get=" + name;
 hHttpSession := InternetOpen(PChar(ExtractFileName(Application.ExeName)), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 try
   hReqUrl := InternetOpenURL(hHttpSession, Pchar(StrUrl), nil, 0, 0, 0);
   try
     repeat
       fillchar(Buffer, sizeof(Buffer), $00);
       InternetReadFile(hReqUrl, @Buffer, sizeof(Buffer), nRead);
       result := result + string(Buffer);
     until nRead = 0;
   finally
     InternetCloseHandle(hReqUrl);
   end;
 finally
   InternetCloseHandle(hHttpSession);
 end;
end;

Примерно так можно... Соответственно, в Uses добавить wininet

---

← →
desam_   (2005-08-29 02:56) [2]

Спасибо! Вроде все работает.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c