[델파이소스] IDFTP 이용한 디렉토리 통째 업로드
procedure UploadPerFTP; procedure GetDir(dir: string); var SearchRec: TSearchRec; details, nodetails: TStringList; k: Integer; begin //iterate through directory given //schleife über alle dateien im ordner if FindFirst(dir + '*.*', faAnyFile, SearchRec) = 0 then begin repeat //get rid of the both "dummy-directories" '.' and '..' //die ordner '.' und '..' brauchen man nicht if (SearchRec.Name '.'..
프로그래밍/Delphi
2009. 8. 5. 15:18
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
링크