| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PHP и Delphi

desam_ ©   (2005-08-29 02:25:00) 

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

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

---

desam_   (2005-08-29 02:56:00) [1]

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

---

KilkennyCat   (2005-08-29 02:34:00) [2]

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

---

Наверх