MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Course Of The Month
7 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
idftp uploading in delphi
Posted on 2011-03-17
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(FTPTa
n:= n + CopySubDirStruct(Dir+sr.Na
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(FTP
form3.idftp1.MakeDir(sr.Na
n:= n + CopySubDirStruct(Dir+sr.Na
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.
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(FTPTa
n:= n + CopySubDirStruct(Dir+sr.Na
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(FTP
form3.idftp1.MakeDir(sr.Na
n:= n + CopySubDirStruct(Dir+sr.Na
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.
[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
3 Comments
Active today
change that function first so you aren't dependant on form3 anymore
how do you call this func ?
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;
how do you call this func ?
Active today
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;
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This is an explanation of a simple data model to help parse a JSON feed
If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
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 …
Suggested Courses
Course of the Month7 days, 3 hours left to enroll
726 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.