Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-08-2007
Avatar de b3nshi
b3nshi b3nshi is offline
Miembro
 
Registrado: feb 2005
Ubicación: Tucuman - Argentina
Posts: 164
Poder: 20
b3nshi Va por buen camino
TTcpClient y TTcpServer

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}
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Errores con los tTcpClient dnieto Varios 4 11-07-2007 14:09:47


La franja horaria es GMT +2. Ahora son las 04:29:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi