Shulou(Shulou.com)06/03 Report--

Function TFrmFileManageCard.UpLoadFileBreak (SourseFileName

DestFileName: String): Integer; var upsize:int64; IDFTP:TidFtp; LSourceStream: TFileStream; LSourceStreamA:TMemoryStream; begin Result:=-1; if Application.MessageBox ('File upload failed, do you want to resume upload at breakpoint?' , 'hint!' , MB_YESNO) ID_YES then begin Exit; end; try try IDFTP:=TidFtp.Create (Nil); LSourceStream: = TFileStream.Create (SourseFileName, fmOpenRead or fmShareDenyNone); IdFTP.Abort; IdFTP.Host:=FTPHTTPControl.CUR_C_FTPSERVER; IdFTP.Port:=FTPHTTPControl.CUR_I_FTPPORT; IdFTP.Username:=FTPHTTPControl.CUR_C_FTPUSER; IdFTP.Password:=FTPHTTPControl.CUR_C_FTPPWS; IdFTP.Connect (); try IdFTP.ChangeDir (AMShare.CurP_MMroomData.C_MMROOM_ID) Except IdFTP.MakeDir (AMShare.CurP_MMroomData.C_MMROOM_ID); IdFTP.ChangeDir (AMShare.CurP_MMroomData.C_MMROOM_ID); end; try IdFTP.ChangeDir (Copy (ExtractFIleName (DestFileName), 1,1); except IdFTP.MakeDir (Copy (ExtractFIleName (DestFileName), 1,1)); IdFTP.ChangeDir (Copy (ExtractFIleName (DestFileName), 1,1)); end; try IdFTP.ChangeDir (Copy (ExtractFIleName (DestFileName), 2,1); except IdFTP.MakeDir (Copy (ExtractFIleName (DestFileName), 2,1)) IdFTP.ChangeDir (Copy (ExtractFIleName (DestFileName), 2,1); end; upsize:=IdFTP.Size (ExtractFIleName (DestFileName)); LSourceStream.Position:=upsize; IdFTP.Passive:=True; IdFTP.Put (SourseFileName,ExtractFIleName (DestFileName), true); IdFTP.Disconnect; Result:=0; except end; finally FreeANdNil (IDFTP); FreeANdNil (LSourceStream); end; / / if the upload fails, continue to ask if Result0 then begin / / if it fails, continue to continue UpLoadFileBreak (SourseFileName,DestFileName); end; end

This article address: http://www.xszlo.com/article/2012-09-24/7458.html, forward please keep this address, thank you

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.