Hola que tal mundo, soy nuevo en el foro asi que pido mil disculpas si es que me equivoque de seccion. Eh aca mi problema:
Estoy haciendo un programa con sockets de delphi y lo que quiero que haga mi programa es que cuando , tanto el server como el cliente se conecten, ambos puedan compartir los directorios y archivos que tiene en sus computadoras de origen. Pero no se como hacer para que mis datos se pasen de un socket a otro ya que la otra ves buscando si encontre como hacer para navegar a traves de mis directorios y archivos con un memo y un edit pero no puedo hacer que esos datos sean pedidos y concedios, tanto por el server como el cliente. Este es el ejemplo que encontre para poder visualizar todos los datos en un memo a traves de las direcciones puestas en un edit:
Código Delphi
[-]procedure ListaDirectorios(var lista:
TStrings; dirPadre: string);
var
SR: TSearchRec;
begin
dirPadre := IncludeTrailingPathDelimiter(dirPadre);
FindFirst(PChar(dirPadre + '*'), faDirectory, SR);
repeat
lista.Add(SR.Name);
until (FindNext(SR) <> 0);
FindClose(SR);
end;
Código Delphi
[-]procedure TForm1.ClienteRead(Sender: TObject; Socket: TCustomWinSocket);
var
directorios: TStrings;
begin
if directoryexists(edit1.text) then
begin
directorios := TStringList.Create;
ListaDirectorios(directorios, edit1.text);
memo1.lines.add(directorio.text);
directorios.Free;
end
end;
Bueno reitero la pregunta, ¿como puedo hacer para que los datos de direcotorios y archivos que tenga una computadora sean transferidos a servidor con las direcciones que proporcione este mismo y viceversa
De antemano muchisimas gracias
y saludos
PD: ya quise ver que pasaba cuando le pedia al cliente los datos a trabes del servidor pero me salia el error sendto(10057) y me dice que el socket no esta conectado y que por eso no se pueden enviar los datos. Pero el socket si estaba conectado y despues se cierra la conexion