Как запросить страницу с сайта 2

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: http://www.sources.ru

{

Присоедините следующий обработчик к Вашему TClientSocket.

Он получает файл с сервера и помещает его в строковую переменную

FText string variable. Однако он не убирает заголовок,

который так же посылается вебсервером.

Не забудьте задать правильный адрес сервера в объекте Socket.

Установите порт 80. А затем откройте его при помощи команды «Socket.Open;».

Автор: E.J.Molendijk

}

const

WebPage = ‘/index.html’;

var

FText: string;

procedure TForm1.SocketWrite(Sender: TObject;

Socket: TCustomWinSocket);

begin

Socket.SendText(‘GET ‘ Webpage ‘ HTTP/1.0’#10#10);

end;

procedure TForm1.SocketRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

FText := FText Socket.ReceiveText

end;

procedure TForm1.SocketConnecting(Sender: TObject;

Socket: TCustomWinSocket);

begin

FText := »;

end;

procedure TForm1.SocketDisconnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

{ — }

{ ЗДЕСЬ ВЫ МОЖЕТЕ ОБРАБАТЫВАТЬ ВАШ FText !!! }

{ — }

end;

procedure TForm1.SocketError(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

ErrorCode := 0; { Ошибки игнорируем }

end;

{/codecitation}

Добавить комментарий