Delphi - Socket.Open

 
Vista:

Socket.Open

Publicado por Jeam (3 intervenciones) el 04/03/2003 03:26:00
Disculpen alguien me podría explicar como utilizo el Socket.Open, podrían poner un ejemplo plz?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Socket.Open

Publicado por Ernesto D'Spirito (706 intervenciones) el 04/03/2003 08:59:08
Aquí tienes un ejemplo sencillo:

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := 'www.borland.com';
ClientSocket1.Port := 80;
ClientSocket1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Close;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage('Conectado');
end;

Espero que te sirva.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar