Hola que tal, espero me puedan ayudar con el siguiente problema..tengo
una aplicacion delphi que uso para conectarme a un servidor y poder
descargar por medio de un boton archivos planos a mi pc o si el
cliente lo requiere poder enviarlo a como una tipo palm, mi problema
es que al intentar bajar del servidor el mismo archivo plano y
enviarlo a la palm me marca el error class EOSError, el proceso no
tiene acceso al archivo porque esta siendo utilizado por otro proceso.
Bueno me explico mejor, tengo dos botones el primero envia directo del
servidor hacia la pc y lo envia a la palm; el segundo boton envio el
archivo del servidor hacia la Pc.
lo curioso es que puedo descargar mil veces el archivo a la pc y no me
marca error pero si lo envio con el primer boton del servidor hacia la
palm me marca el error que les comente..
utilizo unos procedimientos para hacer eso los muestro aqui, ojala me
puedan ayudar porque ya estoy atorada con eso..
uso delphi 6.
Con esta linea mando llamar el procedimiento :
ftp.GetFile(fn, path + '\datos\'+fn); donde: fn es el nombre del
archivo que voy a descargar del servidor
Llama estas funciones
function TInetFTP.GetCurrDir: string;
var
cdsize : Cardinal;
begin
cdsize:= 2000;
SetLength(Result, cdsize);

if not FtpGetCurrentDirectory(FHSession, PChar(Result), cdsize)
then
RaiseLastInternetError;
SetLength(Result, cdsize);
end;

procedure TInetFTP.GetFile(const remotefile, localfile: string);
begin
if not FtpGetFile(FHSession, PChar(remotefile), PChar(localfile),
False, FILE_ATTRIBUTE_NORMAL,GetTransferMode, 0) then
RaiseLastInternetError;

end;

function TInetFTP.GetTransferMode: Cardinal;
begin
if Self.FASCIItransfer then
Result := FTP_TRANSFER_TYPE_ASCII
else
Result := FTP_TRANSFER_TYPE_BINARY;
end;