Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function exista_fisier_pe_ftp_nonvizual(nume_fisier_cautat,ftp_host,ftp_port,ftp_username,ftp_password,ftp_directory:string;memo_loguri:Tmemo) :Boolean;
- var l:TStringList;
- indyftp:Tidftp;
- Freq, StartCount, StopCount: Int64;
- TimingSeconds: real;
- begin
- dateseparator:='-';
- {verific daca serverul ftp este ONLINE}
- if not IS_FTP_ONLINE(ftp_username,ftp_password,ftp_host) then showmessage(datetimetostr(now)+' - serverul "'+ftp_host+'" este OFFLINE sau datele de conectare sunt incorecte!') else
- begin
- memo_loguri.Lines.Add(#13#10+'=====> START CAUTARE FISIER PE SERVER FTP <====='+#13#10);
- { START VERIFICARE VITEZA DE EXECUTIE }
- QueryPerformanceFrequency(Freq);
- QueryPerformanceCounter(StartCount);
- indyftp:=Tidftp.create(nil);
- l:=tstringlist.create;
- indyftp.Host:=ftp_host;
- indyftp.Port:=strtoint(ftp_port);
- indyftp.username:=ftp_username;
- indyftp.password:=ftp_password;
- indyftp.Passive:=true;
- indyftp.Connect;
- if indyftp.connected then
- begin
- memo_loguri.Lines.Add(datetimetostr(now)+' - conectat cu succes la "'+indyftp.Host+'" portul '+inttostr(indyftp.Port));
- memo_loguri.Lines.add(datetimetostr(now)+' - detectare sistem de operare server ftp: "'+indyftp.SystemDesc+'"');
- indyftp.ChangeDir(ftp_directory);
- memo_loguri.Lines.add(datetimetostr(now)+' - accesez directorul "'+ftp_directory+'"');
- try
- {listez toate fisierele de pe ftp}
- indyftp.List(l, '', false);
- if l.IndexOf(nume_fisier_cautat) > -1 then
- begin
- result:=true;
- memo_loguri.Lines.add(datetimetostr(now)+' - fisierul "'+nume_fisier_cautat+'" exista pe serverul ftp in directorul "'+indyftp.RetrieveCurrentDir+'" ,are dimensiunea de '+ FormatByteSize(indyFTP.Size(nume_fisier_cautat))+' si a fost incarcat pe server la data ' +datetostr(indyFTP.FileDate(nume_fisier_cautat)));
- end
- else
- begin
- result:=false;
- memo_loguri.Lines.add(datetimetostr(now)+' - fisierul "'+nume_fisier_cautat+'" nu exista pe serverul ftp');
- end;
- finally
- l.free;
- end;
- indyftp.free;
- { STOP VERIFICARE VITEZA DE EXECUTIE }
- QueryPerformanceCounter(StopCount);
- TimingSeconds := (StopCount - StartCount) / Freq;
- { Display timing: ... }
- memo_loguri.Lines.Add(datetimetostr(now) + ' - comanda executata in: ' + formatfloat('0.00',TimingSeconds) + ' sec.'+#13#10);
- memo_loguri.Lines.Add('=====> STOP CAUTARE FISIER PE SERVER FTP <====='+#13#10);
- end;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement