Devart Forums

Code: Select all

bool __fastcall TSftpForm::UploadProgress(char *localfile)
{
  // replacement for UploadAppend of NTFTP component of BCB5
  Scclrclasses::TBytes Handle;
  Scsftputils::TScSFTPFileOpenModes FOM;
  Scsftputils::TScSFTPFileAttributes* FA = new(Scsftputils::TScSFTPFileAttributes);
  AnsiString Directory;
  int i,handle,bytes,blocks,rest;
  long filelen;
#define BUFFER_SIZE 32768
  byte Puffer[BUFFER_SIZE];

  FtpError = false;
  handle = open(localfile, O_RDONLY|O_BINARY);
  if (handle 0)
  {
  ConnectToFtp();
  //the upload directory is one level up (to the download directory)
  if (MaschPar.lov[MaschPar.LovSelection].Directory.Pos("\") > 0)
    Directory = MaschPar.lov[MaschPar.LovSelection].Directory.SubString(1,MaschPar.lov[MaschPar.LovSelection].Directory.LastDelimiter("\"));
  else
    Directory = MaschPar.lov[MaschPar.LovSelection].Directory.SubString(1,MaschPar.lov[MaschPar.LovSelection].Directory.LastDelimiter("/"));
  try
  {
    try
    {
      //NMFTP->UploadAppend(localfile,MaschPar.lov[MaschPar.LovSelection].Output); //this was real easy
      FOM Permissions = Scsftputils::TScSFTPFilePermissions() ValidAttributes > aSize >> aAllocationSize >> aOwnerGroup
                          >> aAccessTime >> aCreateTime >> aModifyTime >> aChangeAttrTime
                          >> aSubsecondTimes >> aAcl >> aAttrs >> aTextHint >> aMimeType
                          >> aLinkCount >> aUntranslatedName >> aExtended;
      Handle = ScSFTPClient->OpenFile(Directory+MaschPar.lov[MaschPar.LovSelection].Output,FOM,FA);
      if (FtpError)
      {
        close(handle);
        DisconnectFromFtp();
        return FtpError;
      }
      blocks = filelen / BUFFER_SIZE;
      rest = filelen % BUFFER_SIZE;
      for (i=0;iWriteFile(Handle,0,(void *)&Puffer[0],bytes);
      }
      if (rest!=0)
      {
        if ((bytes = read(handle, Puffer, rest)) != rest)
        {
          close(handle);
          DisconnectFromFtp();
          return true;
        }
        ScSFTPClient->WriteFile(Handle,0,(void *)&Puffer[0],bytes);
      }
      // at the latest (try to) do a "chmod 664" here
      FA->Permissions = Scsftputils::TScSFTPFilePermissions() ValidAttributes > aSize >> aAllocationSize >> aOwnerGroup
                          >> aAccessTime >> aCreateTime >> aModifyTime >> aChangeAttrTime
                          >> aSubsecondTimes >> aAcl >> aAttrs >> aTextHint >> aMimeType
                          >> aLinkCount >> aUntranslatedName >> aExtended;
      ScSFTPClient->SetAttributesByHandle(Handle,FA);
      ScSFTPClient->CloseHandle(Handle);
    }
    __except( EXCEPTION_EXECUTE_HANDLER )
    {
      FtpError = true;
    }
  }
  catch ( ... )
  {
    FtpError = true;
  }
  DisconnectFromFtp();
  }
  close(handle);
  return FtpError;
}

Code: Select all

UploadFile(localfile,Directory+MaschPar.lov[MaschPar.LovSelection].Output);

Code: Select all

1.      FOM Permissions = Scsftputils::TScSFTPFilePermissions() ValidAttributes > aSize >> aAllocationSize >> aOwnerGroup 
                          >> aAccessTime >> aCreateTime >> aModifyTime >> aChangeAttrTime 
                          >> aSubsecondTimes >> aAcl >> aAttrs >> aTextHint >> aMimeType 
                          >> aLinkCount >> aUntranslatedName >> aExtended;

Code: Select all

      Handle = ScSFTPClient->OpenFile(Directory+MaschPar.lov[MaschPar.LovSelection].Output,Scsftputils::TScSFTPFileOpenModes() Permissions = Scsftputils::TScSFTPFilePermissions() ValidAttributes << aPermissions;

Code: Select all

bool __fastcall TSftpForm::UploadProgress(char *localfile)
{
  Scclrclasses::TBytes Handle;
TScSFTPFileOpenModes FOM;
  Scsftputils::TScSFTPAceFlags* AF =  new(Scsftputils::TScSFTPAceFlags);
  Scsftputils::TScSFTPFileAttributes* FA = new(Scsftputils::TScSFTPFileAttributes);
  AnsiString Directory;
  int i,handle,bytes,blocks,rest;
  long filelen;
#define BUFFER_SIZE 32768
  byte Puffer[BUFFER_SIZE];

  FtpError = false;
  handle = open(localfile, O_RDONLY|O_BINARY);
  if (handle 0)
  {
  ConnectToFtp();
  //the upload directory is one level up (to the download directory)
  if (MaschPar.lov[MaschPar.LovSelection].Directory.Pos("\") > 0)
    Directory = MaschPar.lov[MaschPar.LovSelection].Directory.SubString(1,MaschPar.lov[MaschPar.LovSelection].Directory.LastDelimiter("\"));
  else
    Directory = MaschPar.lov[MaschPar.LovSelection].Directory.SubString(1,MaschPar.lov[MaschPar.LovSelection].Directory.LastDelimiter("/"));
  try
  {
    try
    {
  FOM.Clear();
  if (FOM.Contains(foAppend))
    AddMessage("_foAppend_",(TColor) FTP_MEMO_COLOR_SUCCESS);
  if (FOM.Contains(foCreate))
    AddMessage("_foCreate_",(TColor) FTP_MEMO_COLOR_SUCCESS);
  FOM Permissions = Scsftputils::TScSFTPFilePermissions() ValidAttributes = FA->ValidAttributes OpenFile(Directory+MaschPar.lov[MaschPar.LovSelection].Output,
                                  FOM,FA);
  if (FtpError)
  {
    DisconnectFromFtp();
    return FtpError;
  }

    blocks = filelen / BUFFER_SIZE;
    rest = filelen % BUFFER_SIZE;
    for (i=0;iWriteFile(Handle,0,(void *)&Puffer[0],bytes);
    }
    if (rest!=0)
    {
      if ((bytes = read(handle, Puffer, rest)) != rest)
      {
        close(handle);
        DisconnectFromFtp();
        return true;
      }
      ScSFTPClient->WriteFile(Handle,0,(void *)&Puffer[0],bytes);
    }
    ScSFTPClient->SetAttributesByHandle(Handle,FA);
    ScSFTPClient->CloseHandle(Handle);
    }
    __except( EXCEPTION_EXECUTE_HANDLER )
    {
      FtpError = true;
    }
  }
  catch ( ... )
  {
    FtpError = true;
  }
  DisconnectFromFtp();
  }
  close(handle);
  return FtpError;
}

Code: Select all

  FOM.Clear(); 
  FOM << Scsftputils::foWrite << Scsftputils::foAppend << Scsftputils::foCreate;

Code: Select all

  Stream := TFileStream.Create(Source, fmOpenRead);
  try
    Attrs := TScSFTPFileAttributes.Create;
    Handle := ScSFTPClient.OpenFile(Destination, [foWrite, foCreate], nil);

    try
      ScSFTPClient.RetrieveAttributesByHandle(Attrs, Handle);
      if aSize in Attrs.ValidAttributes then
        FileOffset := Attrs.Size
      else
        FileOffset := 0;

      SetLength(Buf, Min(32768, Stream.Size));
      while Stream.Position  Stream.Size do begin
        Count := Stream.Read(Buf[0], Length(Buf));
        if Count = 0 then Exit;
        ScSFTPClient.WriteFile(Handle, FileOffset, Buf, 0, Count);
        FileOffset := FileOffset + Count;
      end;

    finally
      Attrs.Free;
      ScSFTPClient.CloseHandle(Handle);
    end;
  finally
    Stream.Free;
  end;

Code: Select all

  AnsiString Directory;
  Scclrclasses::TBytes Handle;
  TScSFTPFileOpenModes FOM;
  TBytes Buffer;
  __int64 FileOffset;
  int Buffersize;
  int Count;

  FtpError = false;
  //the upload directory is one level up (to the download directory)
  if (MaschPar.lov[MaschPar.LovSelection].Directory.Pos("\") > 0)
    Directory = MaschPar.lov[MaschPar.LovSelection].Directory.SubString(1,MaschPar.lov[MaschPar.LovSelection].Directory.LastDelimiter("\"));
  else
    Directory = MaschPar.lov[MaschPar.LovSelection].Directory.SubString(1,MaschPar.lov[MaschPar.LovSelection].Directory.LastDelimiter("/"));
  TFileStream *Stream = new TFileStream(AnsiString(localfile),fmOpenRead);
  try
  {
    if (Stream->Size > 0)
    {
    ConnectToFtp();
    if (FtpError)
    {
      delete Stream;
      DisconnectFromFtp();
      return FtpError;
    }
    Scsftputils::TScSFTPFileAttributes* FA = new(Scsftputils::TScSFTPFileAttributes);
    FOM.Clear();
    FOM OpenFile(Directory+MaschPar.lov[MaschPar.LovSelection].Output,
                                    FOM,NULL);
    try
    {
      ScSFTPClient->RetrieveAttributesByHandle(FA, Handle, TScSFTPAttributes() ValidAttributes.Contains(aSize))
        FileOffset = FA->Size;
      else
        FileOffset = 0;
      Buffersize = min(ScSFTPClient->ReadBlockSize,Stream->Size);
      Buffer.Length = Buffersize;
      try
      {
        while (Stream->Position != Stream->Size)
        {
          Count = Stream->Read(&Buffer[0], Buffersize);
          if (Count == 0)
            break;
          ScSFTPClient->WriteFile(Handle,FileOffset,Buffer,0,Count);
          FileOffset = FileOffset + Count;
        }
      }
      __finally
      {
        Buffer.Length = 0;
      }
    }
    __finally
    {
      delete FA;
      ScSFTPClient->CloseHandle(Handle);
      DisconnectFromFtp();
    }
    }
  }
  __finally
  {
    delete Stream;
  }
  return FtpError;