Главная страница
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.026 c
2-1131980100
Eksell
2005-11-14 17:55
2005.12.04
WriteProcessMemory


2-1132071932
AntonXXX
2005-11-15 19:25
2005.12.04
Процедура при клике


9-1121759996
VasRog
2005-07-19 11:59
2005.12.04
Наложение текстуры на трехмерный объект произвольной формы


14-1131980549
Mozart
2005-11-14 18:02
2005.12.04
Фильм "Архангел" (Надеюсь так прокатит)


2-1132315243
Perf2k2
2005-11-18 15:00
2005.12.04
Проблема с Acces(через BDE) - не добавляет пустую строку в таблиц