Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

Как получить HTML код страницы с помощью ClientSocket?   Найти похожие ветки 

← →
ppcumax ©   (2007-04-12 22:17) [0]

Раньше пользовался только Инди, но появилась необходимость работы с ClientSocket

---

← →
ppcumax ©   (2007-04-12 23:03) [1]

вот тут пытался написать, но что-то не выходит, может кто ощибку найдет

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ScktComp, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   ClientSocket1: TClientSocket;
   procedure ClientSocket1Write(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure ClientSocket1Connecting(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure ClientSocket1Disconnect(Sender: TObject;
     Socket: TCustomWinSocket);
   procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
     ErrorEvent: TErrorEvent; var ErrorCode: Integer);
   procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
const
 WebPage = "http://yandex.ru/";
var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Write(Sender: TObject;
 Socket: TCustomWinSocket);
begin
Socket.SendText("GET " + Webpage + " HTTP/1.0"#10#10);
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
 Socket: TCustomWinSocket);
begin
Memo1.Clear;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
Memo1.Font.Color := clred;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
 Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
 var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
 Socket: TCustomWinSocket);
begin
Memo1.Text := Memo1.Text + Socket.ReceiveText;
end;

end.

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.062 c