POST -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.217.37]

Соблюдайте общие правила форума

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Krid,

Rouse_

Модераторы: Krid, Rouse_

Новое голосование

POST , uses WinInet

Гость ZShell

Сообщ. #1 , 25.02.04, 13:18

Unregistered

Почему не работает?
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;

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0.0555 ] [ 15 queries used ] [ Generated: 23.10.26, 23:01 GMT ]