I would appreciate any advice on what I might be missing or doing wrong.
Thanks in advance,
Aimee Lunn
Aim...@RetailSolutions.com
SAMPLE CODE:
begin
FTP:=TidFTP.Create(nil);
with FTP do
begin
host:=gvo_parms.Values['hostname'];
user:=gvo_parms.Values['username'];
password:=gvo_parms.Values['password'];
TransferType := ftAscii;
try
connect;
begin
try
ChangeDir(StringReplace(gvo_parms.Values['remotedir'], '\', '/',
[rfReplaceall]));
except
gvw_result:=FTPDir;
end;
try
Put(gvo_parms.Values['localdir']+gvo_parms.Values['localfile'],
gvo_parms.Values['remotefile'],False);
gvw_result:=FTPGood;
except
gvw_result:=FTPBad;
end;
end;
finally
disconnect;
end;
end;
end;
--
Doychin Bondzhev - Team Indy
doy...@dsoft-bg.com
DdSoft-Bulgaria
http://www.dsoft-bg.com
"Aimee Lunn" <aim...@retailsolutions.com> wrote in message
news:3b72c6b5$1_1@dnews...
Nothing, as far as I can see. There couldn't be much, really. The fact that the file
appears on the UNIX box demonstrated that the filenames are OK. The put call
should return or cause an exception, which you have covered.
My network test loader app. uses this component & the code looks almost identical
to yours. The big differences are that I have a repeat loop that reruns the put continually,
my put calls return and I am using the 9.1 beta components. I have been running repeated
puts for four days now, without problems, (unlike ping - I have big problem with ICMP).
Your code is fine. I think it's upgrade time.
Rgds,
Martin