1

Delphi2010にTMSTWebCopy2.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は、サイズ921、935バイトのURLから名前を持つ空のファイルを作成します。

TForm1.WebCopy1ErrorInfo、、、TForm1.WebCopy1URLNotFoundの同じ状況TForm1.WebCopy1ConnectError。私はTMSのサポートセンターに手紙を書きましたが、彼らが私に提案を返すかどうかはわかりません。

4

1 に答える 1

0

ソースがある場合、Delphi は TWebCopy を再コンパイルしている可能性があります。
すべての文字列を AnsiStrings から WideStrings に暗黙的に置換します。

バックアップを作成します。
そして、TWebCopy のソース内のすべてstringの 's into'を置き換えます。 再コンパイルして、それが役立つかどうかを確認してください。Ansistring

または
、TWebCopy の元の DCU を見つけて、TWebCopy ソースを安全な場所に置き
、再コンパイルされた Widestringed DCU の代わりに、Delphi に元の DCU を使用させます。

于 2011-04-14T10:20:21.237 に答える