es que mira el codigo conforme lo copio de aki me tira error, yo estoy modificando algunas cosas mira lo estoy dejando en un procedimiento
Código Delphi
[-]procedure EnviarArchivo(nombre : string);
var
St:TFileStream;
begin
try
If nombre <> '' then begin
st:=TFileStream.Create(nombre ,fmopenread);
Form1.s3.Socket.WriteLn('CMD#SNDFile#'+ExtractFileName(nombre)+'#'+IntToStr(st.Size));
if Form1.s3.Socket.ReadLn = 'RCVFile#Ready' then begin
Try
client.WriteStream(st,true,true,st.Size);
except
end;
end else
ShowMessage('Cant Send the File');
end;
finally
St.Free;
end;
end;
en esta linea no aparece ningun metodo ni procemiento que haga write stream, s3 es el nombre del componente IdTCPClient, ya que uso conexion inversa, luego entonces el codigo se usa al reves tu me entiendes... ejejej
Código Delphi
[-]client.WriteStream(st,true,true,st.Size);