VPF::Запрос страницы с URL - Форум программистов

Гость_Felt

Дата 8.7.2005, 05:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код

procedure SendMessageToServer;
var
 WSAData: TWSAData;
 vSocket: TSocket;
 Res: Integer;
 Host: TSockAddrIn;
 Text: String;
begin
 WSAStartup($101, WSAData);
 vSocket:=Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
 if vSocket = INVALID_SOCKET then
  Exit;
 Res:=inet_addr(PChar(ServiceServer));
 if Res <= 0 then
  Exit;
 Host.sin_family:=AF_INET;
 Host.sin_port:=htons(ServiceServerPort);
 Host.sin_addr.S_addr:=Res;
 if Connect(vSocket, Host, SizeOf(Host)) > 0 then
  Exit;
 Text:='GET /service/service.php?code=1 HTTP/1.0'#13#10#13#10;
 Send(vSocket, Text[1], Length(Text), 0);
 WSACleanup;
 Sleep(1000);
end;

Код полностью работает: происходит соединение, только Apache не регистрирует входящего запроса. Может быть строка запроса написана неправильно? Хотя я пробовал ее же написать в телнете, все работало на ура. А из моей проги не хочет.

Гость_Felt

Дата 8.7.2005, 15:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Небольшие пояснения к коду:
ServiceServer - это переменная типа String, равная значению xxx.xxx.xxx.xxx
ServiceServerPort - это Integer = 80.

Пожалуйста, не отказывайте в помощи, помогите кто чем может.

Гость_Felt

Дата 9.7.2005, 05:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Проблему все же удалось решить. Просто нужно закрывать сокет, я же вместо этого закрывал сразу же интерфейс. Вызов CloseSocket(vSocket) перед WSACleanup решил проблему.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »