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]

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

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