In addition to Weibo, there is also WeChat
Please pay attention
WeChat public account
Shulou
2025-09-23 Update From: SLTechnology News&Howtos shulou NAV: SLTechnology News&Howtos > Internet Technology >
Share
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.
Views: 0
*The comments in the above article only represent the author's personal views and do not represent the views and positions of this website. If you have more insights, please feel free to contribute and share.
The market share of Chrome browser on the desktop has exceeded 70%, and users are complaining about
The world's first 2nm mobile chip: Samsung Exynos 2600 is ready for mass production.According to a r
A US federal judge has ruled that Google can keep its Chrome browser, but it will be prohibited from
Continue with the installation of the previous hadoop.First, install zookooper1. Decompress zookoope
About us Contact us Product review car news thenatureplanet
More Form oMedia: AutoTimes. Bestcoffee. SL News. Jarebook. Coffee Hunters. Sundaily. Modezone. NNB. Coffee. Game News. FrontStreet. GGAMEN
© 2024 shulou.com SLNews company. All rights reserved.