Fórum ENVIO DE DADOS. COMO? #142619

Olá , ví no clube delphi, o exemplo de como se usa o componente Tcp/Ip Socket , até consegui fazer ele funcionar , mas não lembro mais como faz ! da uma olhada na sessão de artigos

Usando as socketes:
Brother, crie um server..{ Usando o componente Serversocket }
Um bom jeito de fazer envios de dados e usando um IP fixo, facil facil com Adsl.
Crie o IP e deixe fixo na maquina.
Crie um Programa cliente {Usando o componete ClientSocket } ..E configure sua conexão com o server.
Crie na sua tabela os campos não configuraveis pelo povvo....CompID, para configurar o ID da empresa.
Ae digite o seguinte codigo no Bota enviar....


//Salva os dados do banco em uma lista de strings
Data:= TstringList.Create;
Table1.first;
while not table1.eof do
begin
// Se o registro ainda estiver no log
if table1compId.isNull or (table1compId.asinteger = 0) then
begin
Iblog.iitems.add (´Enviando´+ table1campo.asString);
Data.clear;
//Cria string com a estrutura ´nome_do_campo=valor´
for i:= 0 to table1.fieldcount -1 do
data.values [table1.fields[i].fieldName] := table1.fields [i].AsString;
// Envia o registro
clientSocket1.socket.SendText (Data.text);
//Espera pela resposta do server
Fwaiting :=true;
while Fwaiting do
appication.processMessages;
end;
table1.next;
end;

Ai é so configura o Servidor para receber.....
Se tiver alguma duvida ou algum erro, brother, entre voando em contato comigo...............