Solved

idftp uploading in delphi

Posted on 2011-03-17

2 solutions

Medium Priority

1,427 Views

Last Modified: 2012-06-21

Hello experts.Please help me with one trouble.
i have 2 function :
function CopySubDirStruct(Dir, FTPTargetDir: string): integer; // Dir & FTPTargetDir Should be teminated with \
var
sr: TSearchRec;
n: integer;
begin
n:= 0;
if FindFirst(Dir+'*.*', faDirectory, sr) = 0 then
begin
repeat
if ((sr.Attr and faDirectory)=sr.Attr) and (Pos('.', sr.Name)=0) then
begin
form3.idftp1.MakeDir(FTPTargetDir+sr.Name);
n:= n + CopySubDirStruct(Dir+sr.Name+'\', FTPTargetDir+sr.Name+'\');
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
Result:= n;
end;

function CopyDirStruct(Dir, FTPTargetDir: string): integer; // Dir & FTPTargetDir Should be teminated with \ and /
var
sr: TSearchRec;
n: integer;
begin
n:= 0;
if FindFirst(Dir+'*.*', faDirectory, sr) = 0 then
begin
repeat
if ((sr.Attr and faDirectory)=sr.Attr) and (Pos('.', sr.Name)=0) then
begin
if (FTPTargetDir='') then
form3.idftp1.ChangeDir('/')
else form3.idftp1.ChangeDir(FTPTargetDir);
form3.idftp1.MakeDir(sr.Name);
n:= n + CopySubDirStruct(Dir+sr.Name+'\', FTPTargetDir+sr.Name+'/');

end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
Result:= n;
end;

This working good.This function makes dirs to ftp server from pc folder.
Please help : how i can modify this function that it uploads ALL files from any dir?

Thanks.

Comment

Question by:helyonprime96

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

3 Comments

LVL 38

Accepted Solution

by:Geert Gruwez

Geert Gruwez earned 1000 total points

ID: 351607232011-03-17

change that function first so you aren't dependant on form3 anymore

function CopyDirStruct(Dir, FTPTargetDir: string; IdFtp: TIdFtp): integer;  // Dir & FTPTargetDir Should be teminated with \ and /
var
  sr: TSearchRec;
  n: integer;
begin
  n:= 0;
  if FindFirst(Dir+'*.*', faDirectory, sr) = 0 then
  begin
    repeat
      if ((sr.Attr and faDirectory)=sr.Attr) and (Pos('.', sr.Name)=0) then
     begin
        if (FTPTargetDir='') then
          idftp.ChangeDir('/')
        else 
          idftp.ChangeDir(FTPTargetDir);
        idftp.MakeDir(sr.Name);
        n:= n + CopySubDirStruct(Dir+sr.Name+'\', FTPTargetDir+sr.Name+'/');

     end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  Result:= n;
end;

Open in new window

how do you call this func ?

LVL 24

Assisted Solution

by:jimyX

jimyX earned 1000 total points

ID: 351625952011-03-17

Try this please:

Procedure UploadFiles(Dir, FTPTargetDir: string);
var
  SR : TSearchRec;
begin
  // Dir is the Path of the directory you are searching its files
  if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
    begin
      repeat
        if (SR.Attr <> faDirectory) then
          begin
            // the file path can be obtained by using Dir+SR.Name so you can upload it or do whatever you want with it
            form3.idftp1.Put(Dir + SR.Name, FTPTargetDir + SR.Name);
          end;
       until FindNext(SR) <> 0;
      FindClose(SR);
    end;
end;

function CopySubDirStruct(Dir, FTPTargetDir: string): integer;  // Dir & FTPTargetDir Should be teminated with \
var
  sr: TSearchRec;
  n: integer;
begin
  n:= 0;
  if FindFirst(Dir+'*.*', faDirectory, sr) = 0 then
  begin
    repeat
      if ((sr.Attr and faDirectory)=sr.Attr) and (Pos('.', sr.Name)=0) then
     begin
        form3.idftp1.MakeDir(FTPTargetDir+sr.Name);
        UploadFiles(Dir + SR.Name+'\', FTPTargetDir+SR.Name+'\');
        n:= n + CopySubDirStruct(Dir+sr.Name+'\', FTPTargetDir+sr.Name+'\');
     end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  Result:= n;
end;

function CopyDirStruct(Dir, FTPTargetDir: string): integer;  // Dir & FTPTargetDir Should be teminated with \ and /
var
  sr: TSearchRec;
  n: integer;
begin
  n:= 0;
  if FindFirst(Dir+'*.*', faDirectory, sr) = 0 then
  begin
    repeat
      if ((sr.Attr and faDirectory)=sr.Attr) and (Pos('.', sr.Name)=0) then
     begin
        if (FTPTargetDir='') then
          form3.idftp1.ChangeDir('/')
        else form3.idftp1.ChangeDir(FTPTargetDir);
        form3.idftp1.MakeDir(sr.Name);
        n:= n + CopySubDirStruct(Dir+sr.Name+'\', FTPTargetDir+sr.Name+'/');

     end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  Result:= n;
end;

Open in new window

Consider what Geert said.

Author Closing Comment

by:helyonprime96

ID: 351686302011-03-18

thanks experts.

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Android Gesture Tutorial – Touch, Scroll and Press on Android Device Screen

Article by: Navneet

In this post we will learn how to make Android Gesture Tutorial and give different functionality whenever a user Touch or Scroll android screen.

How do I write a good Gig for freelancers?

Article by: Kyle Santos

This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.

Introduction to Java Syntax

Video by: Michael

An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …