TMS TWebCopy, Delphi - PullRequest
Новая
       35

TMS TWebCopy, Delphi

1 голос
/ 23 февраля 2011

У меня TMS TWebCopy 2.3 на Delphi 2010.

Когда я пытаюсь сделать это: 

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, я не знаю, отвечают ли они мне с любым предложением или нет.

1 Ответ

0 голосов
/ 14 апреля 2011

Если у вас есть источник, Delphi может перекомпилировать TWebCopy.
Неявно подставляя все строки из AnsiStrings в WideStrings.

Сделайте резервную копию.
И замените все string на Ansistring в источнике TWebCopy.
Перекомпилируйте и посмотрите, поможет ли это.

или
Найдите исходный DCU TWebCopy и уберите источник TWebCopy с вреда
и позвольте Delphi использовать исходный DCU вместо перекомпилированного Widestringed DCU.

...