Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.04;
Скачать: 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 вся ветка

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
3-1129801845
Карелин Артем
2005-10-20 13:50
2005.12.04
Как выполнить скрипт в ADO из нескольких команд?


14-1131963464
nbv
2005-11-14 13:17
2005.12.04
Security Component


14-1131842407
Gero
2005-11-13 03:40
2005.12.04
Запрет анонимам постить в «Потрепаться»


14-1131638145
PVOzerski
2005-11-10 18:55
2005.12.04
Россия - колыбель евронацизма?


2-1131968060
igi
2005-11-14 14:34
2005.12.04
как сделать аналог dup()