https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=46531&view=findpost&p=305435 Wed, 25 Feb 2004 13:18:42 +0000 https://forum.sources.ru/index.php?showtopic=46531&view=findpost&p=305435 uses WinInet

var EportSession,EportConnect,EportOpenRequest: HINTERNET;
begin
EportSession:=InternetOpen('Client',INTERNET_OPEN_TYPE_PRECONFIG,
NiL,NiL,INTERNET_FLAG_DONT_CACHE or INTERNET_FLAG_FORMS_SUBMIT or INTERNET_FLAG_NO_COOKIES);

EportConnect:=InternetConnect(EportSession,'www.host.ru',INTERNET_DEFAULT_HTTPS_PORT,'','',INTERNET_SERVICE_HTTP,0,0);

EportOpenRequest:=HttpOpenRequest(EportConnect,'POST','/poster.php',HTTP_VERSION,'www.host.ru/poster.php',nil,0,0);

HttpSendRequest(EportOpenRequest,nil,0,nil,0);
InternetCloseHandle(EportSession);
end;]]> Гость ZShell Delphi: Сетевое программирование