Erros Variados

[Lukasmart7 1]

Olá Primeira Vez Que Venho Tira Um Duvida Nessa Area , Bem Seguinte Estou Usando Um Componente WebCopy Mais Estou Com Dificuldade De Desifra O Erro Acompanhe!

 

Componente..

1 Button

2 Webcopy e 2 Items 1 Em Cada Webcopy.

2 Arquivos Com Extensão .INI

1.ini

[V]

V=1

 

Ver2.ini

[V]

V=3

1 Pasta Nomeada Update.

 

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, WebCopy,IniFiles;

 

type

TForm1 = class(TForm)

WebCopy1: TWebCopy;

WebCopy2: TWebCopy;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure WebCopy1FileDone(Sender: TObject; idx: Integer);

procedure WebCopy2FileDone(Sender: TObject; idx: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

Ini : TInifile;

Ini2: TIniFile;

Nu1 : Integer;

Nu2 : Integer;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Webcopy1.Items[0].TargetDir := './';

Webcopy1.Items[0].TargetFilename := '2.ini';

Webcopy1.Items[0].URL := './Ver2.ini';

Webcopy1.DoCopy;

end;

 

procedure TForm1.WebCopy1FileDone(Sender: TObject; idx: Integer);

begin

Ini2 := TIniFile.Create('./2.ini');

Nu2 := Ini2.ReadInteger('V','V',-1);

Ini := TIniFile.Create('./1.ini');

Nu1 := Ini.ReadInteger('V','V',-1);

if Nu1 < Nu2 then begin

Webcopy2.Items[0].TargetDir := './Update/';

Webcopy2.Items[0].TargetFilename := inttostr(Nu1)+'.zip';

Webcopy2.Items[0].URL := '

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Webcopy2.DoCopy;

end;

end;

procedure TForm1.WebCopy2FileDone(Sender: TObject; idx: Integer);

begin

Ini := TIniFile.Create('./1.ini');

Ini.WriteInteger('V','V',Nu1+1);

Nu1 := Ini.ReadInteger('V','V',-1);

if Nu1 < Nu2 then begin

Webcopy2.Items[0].TargetDir := './Update/';

Webcopy2.Items[0].TargetFilename := inttostr(Nu1)+'.zip';

Webcopy2.Items[0].URL := '

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Webcopy2.DoCopy;

 

end;

end;

end.

[Owner 8]

Se falasse onde era o erro seria melhor né ?

Esperando ...

[Lukasmart7 1]

Ai Que Está, Não Fala a Linha Que Está Com Erro ! As Vezes Da Erro Andress 0000000!

Tenso!