Exemplo de programa de socket

[Sayfor 0]

De um computador (a) vc se conecta a um outro computadfor (http://forum.otserv.com.br/style_emoticons/<#EMO_DIR#>/cool.gif e salva as informaçoes no banco de dados do compuitador (http://forum.otserv.com.br/style_emoticons/<#EMO_DIR#>/cool.gif.

Aplicativo agindo tanto como servidor como cliente..

Este não está com as linhas comentadas pois era um desafio do meu curso e por isso não comentei ;]

 

procedure TForm1.Button1Click(Sender: TObject);varip:string;begin        ip:=inputbox('Digite o IP','','127.0.0.1');        clientsocket1.host:=ip;        clientsocket1.active:=true;        txtnome.Enabled:=true;        txtendereco.Enabled:=true;        txtcidade.enabled:=true;end;procedure TForm1.ServerSocket1Accept(Sender: TObject;  Socket: TCustomWinSocket);begin        Label1.Caption := 'Conectado à: ' + Socket.RemoteAddressend;procedure TForm1.FormCreate(Sender: TObject);////Desenvolvido por Sayfor//beginserversocket1.Active:=true;label1.caption:='Desconectado';lbl2.Visible:=false;end;procedure TForm1.Button3Click(Sender: TObject);begin        clientsocket1.socket.sendtext(txtnome.Text+ ',' + txtendereco.text + ',' + txtcidade.text);end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  Socket: TCustomWinSocket);  var  p:string;  x:string;  y:string;begin        lbl2.visible:=true;        lbl2.Caption:=socket.receivetext;        p:=lbl2.Caption;        x:=copy(p,1,pos(',',p)-1);        delete(p,1,pos(',',p));        y:=copy(p,1,pos(',',p)-1);        delete(p,1,pos(',',p));        table1.Append;        table1['Nome']:=x;        table1['Endereco']:=y;        table1['Cidade']:= p;        table1.Post;end;end.

Foto do form:

 

Espero que vcs tenham conseguido ter uma basa do code.

 

//Sayfor

[Fox- 0]

Opa!Vlw ai SayforMuito legal o Socket.. apesar de se simples.To me quebrando aki pra aprende a mexe no Indy, eh muito parecido com o socket, porem num consigo fazer um chat o cliente ta travando assim q estabelece a conexao to cheio disso ja.Esses dias q achei o Socket no Delphi Vo começa a tenta usa ele..vlw ai pelo tuto

[Sayfor 0]

hehe..Foi anda.. pior que quando da pau em socket é muito chato descobri o que é -.-"

[André 0]

hihi dahorinha hihi

[Johnnie Walker 0]

Boa ;D