2011-02-23 156 views
1

我對2010年德爾福TMS TWebCopy,德爾福

TMS TWebCopy 2.3當我嘗試這樣做:

procedure TForm1.WebCopy1Error(Sender: TObject; ErrorCode: Integer); 
begin 
showmessage('Error '+inttostr(ErrorCode)); 
end; 

with webcopy1.items.add do 
    begin 
    url:='http://zcvhxhjcgv.com/asdfsag.zip'; //fictional url, error must appear 
    targetdir:=tgt.text; 
    end; 

我還沒有得到任何的錯誤!當我嘗試下載5-10個文件時,WebCopy可以通知1次,但另一個 - 無。 WebCopy使用URL大小爲921,935字節的名稱創建空文件。

同樣的情況爲TForm1.WebCopy1ErrorInfo,TForm1.WebCopy1URLNotFound,TForm1.WebCopy1ConnectError。 我寫過支持TMS的中心,我不知道他們回覆我的任何建議與否。

+0

這個版本的組件支持unicode嗎?如果沒有,那麼你需要從TMS購買升級版或者爲自己制定如何移植它。 – 2011-02-23 07:37:53

回答

0

如果您有源代碼,Delphi可能會重新編譯TWebCopy。
隱式地將AnsiStrings中的所有字符串替換爲WideStrings。

進行備份。
並且將所有string's替換爲TWebCopy源文件中的Ansistring
重新編譯,看看是否有幫助。


找到TWebCopy原DCU,並把TWebCopy源出傷害的方式
,然後讓Delphi使用原來的DCU,而不是重新編譯Widestringed DCU。