Mi pregunta creo q dentro de todo es sencilla... quisiera saber si puedo hacer un chat en red con estos componentes... vi un ejemplo en la web de Seoane para enviar un fichero, la pregunta es como seria en red? Es exactamente lo mismo pero con una IP de la red verdad?
Y si hay alguien q me pueda explicar como es q se envia un fichero... porq por ejemplo a esta porcion del codigo (del programa de seoane) no logro entenderla... Estuve leyendo un poco sobre la clase TFileStream, pero aun asi no termino de entender la idea de Buffer... alguien q me pueda explicar?
Código Delphi
[-]
procedure TEnvio.Execute;
var
Buffer: PByte;
Leidos: Integer;
begin
inherited;
with TFileStream.Create(FLocalFile,fmOpenRead or fmShareDenyWrite) do
try
GetMem(Buffer,BufferSize);
try
FCliente.Active:= TRUE;
try
FCliente.Sendln(FRemoteFile);
Leidos:= Read(Buffer^,BufferSize);
while (Leidos > 0) and not Terminated do
begin
FCliente.SendBuf(Buffer^,Leidos);
Leidos:= Read(Buffer^,BufferSize);
end;
finally
FCliente.Active:= FALSE;
end;
finally
FreeMem(Buffer);
end;
finally
Free;
end;
end;
Muchas Gracias!
{Saludos}