🚀 go-pugleaf

"David" <microges@email.it> wrote in message
news:4577d9b5@newsgroups.borland.com...

> TCPClient.IOHandler.WriteLn(FileName);

You shouldn't be sending the full file path, only the file name:

    TCPClient.IOHandler.WriteLn(ExtractFileName(FileName));

> TCPClient.IOHandler.WriteFile(FileName);

Try using Write(Stream) instead.

> FStream := TFileStream.Create(NomeFile, fmCreate, fmOpenWrite);

Where and how is NomeFile assigned?

> AContext.Connection.IOHandler.LargeStream := True;

Did you set LargeStream to True on the client side?

> AContext.Connection.IOHandler.ReadStream(FStream);

By default, ReadStream() reads an integer value (an Int64 in this case
because you set LargeStream to True) specifying the number of stream bytes
being sent.  However, WriteFile() does not send that value.  So you are
corrupting your file transfer.  If you are going to use ReadStream() like
that, then you have to call Write(Stream) on the client side instead of
WriteFile().  For example:

    --- Client ---

    uses
        IdGlobal, IdObjs, IdSys;

    var
        Stream: TIdStream;
    begin
        Stream := TIdReadFileExclusiveStream.Create(FileName);
        try
            TCPClient.IOHandler.WriteLn(ExtractFileName(FileName));
            TCPClient.IOHandler.LargeStream := True;
            TCPClient.IOHandler.WriteStream(Stream, 0, True);
        finally
            Sys.FreeAndNil(Stream);
        end;
    end;


    --- Server ---

    NomeFile := 'C:\Some Folder\' +
ExtractFileName(AContext.Connection.IOHandler.ReadLn);
    FStream := TIdFileCreateStream.Create(NomeFile);
    try
        AContext.Connection.IOHandler.LargeStream := True;
        AContext.Connection.IOHandler.ReadStream(FStream);
    finally
        Sys.FreeAndNil(FStream);
    end;


Gambit