Wellington Duarte

@YeoshuaAl você manja de por isso?

Então, na verdade sou bem iniciante no Delphi. Eu procurei sobre thread porém eu não entendo. Acredito que se usar esse método funcione. Se alguém conseguir fazer isso pra mim ficarei bem feliz.

Olá, estou desenvolvendo um projeto de auto update com múltiplos downloads. Porém quando está fazendo o download dos arquivos, o programa simplesmente trava e só é possível mexer após todos os downloads. Já coloquei anti freeze, porém o problema continua. Segue o código, caso alguém possa alterar e me mandar ficarei agradecido, acredito que o problema esteja no Timer1. unit CLIENTE; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, sSkinManager, ExtCtrls, sPanel, StdCtrls, Buttons, sBitBtn, sButton, acNoteBook, sSpinEdit, sGauge, ComCtrls, sTreeView, sTrackBar, sPageControl, sTabControl, Mask, sMaskEdit, sSpeedButton, sGroupBox, sComboBox, sListBox, sRadioButton, sCheckBox, sMemo, sEdit, acShellCtrls, sLabel, OleCtrls, SHDocVw, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, acProgressBar, DFUnRar, IdAntiFreezeBase, IdAntiFreeze; type TForm1 = class(TForm) sSkinManager1: TsSkinManager; sPanel1: TsPanel; sLabelFX1: TsLabelFX; sButton3: TsButton; sPanel2: TsPanel; web: TWebBrowser; Timer1: TTimer; IdHTTP1: TIdHTTP; lista: TMemo; Memo2: TMemo; Memo3: TMemo; sProgressBar1: TsProgressBar; sProgressBar2: TsProgressBar; DFUnRar1: TDFUnRar; Edit1: TEdit; Timer2: TTimer; IdAntiFreeze1: TIdAntiFreeze; sBitBtn1: TsBitBtn; sBitBtn2: TsBitBtn; sBitBtn3: TsBitBtn; procedure FormCreate(Sender: TObject); procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure sButton3Click(Sender: TObject); private IsExtracting: boolean; Abort: boolean; Success: boolean; public ltitle : string; Min: Integer; path : string; pexit: boolean; function UpdateExe():boolean; { Public declarations } end; var Form1: TForm1; sNomeLocalVar:string; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin sButton3.Enabled := False; web.Navigate('http://www.somubom.net/muspirit/launcher/'); ltitle := 'Launcher'; // Editar /\ sSkinManager1.Active:= true; if FindWindow(Nil, PChar(ltitle)) > 0 then begin MessageDlg('O launcher ja esta em execucao.', mtInformation, [mbOK], 0); Application.Terminate; form1.Close; end else Application.Title:=ltitle; end; procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin sProgressBar1.Position := AWorkCount; end; procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); begin sProgressBar1.Position := 0; sProgressBar1.Max := AWorkCountMax; sLabelFX1.caption := 'Verificando atualizações...' end; procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode); begin sProgressBar1.Position := sProgressBar1.Max; sLabelFX1.caption := 'Atualização concluída!'; end; procedure TForm1.Timer1Timer(Sender: TObject); var arquivo,caminho : string; slTemp : TStringList; i : integer; MyFile: TFileStream; begin Timer1.Enabled:= False; caminho:= 'http://127.0.0.1:8090/'; arquivo:= 'versaoatual.txt'; MyFile := TFileStream.Create('versaoatual.txt', fmCreate); try IdHTTP1.Get('http://127.0.0.1:8090/versaoatual.txt', MyFile); finally MyFile.Free; Memo2.Lines.LoadFromFile('versaoatual.txt'); Memo3.Lines.LoadFromFile('versao.txt'); if Memo2.Lines[0] = Memo3.Lines[0] then begin sButton3.enabled := True; sLabelFX1.Caption := 'Atualização concluída!'; sLabelFX1.Top := 35; sProgressBar1.Visible:=False; sProgressBar2.Visible:=False ; end else begin slTemp := TStringList.Create; slTemp.LoadFromFile('update.txt'); for i := 0 to slTemp.Count - 1 do begin sLabelFX1.Caption := 'Baixando: ' + slTemp.Strings[i]; caminho:='http://127.0.0.1:8090/'; arquivo:= slTemp.Strings[i]; MyFile := TFileStream.Create(slTemp.Strings[i], fmCreate); try IdHTTP1.Get('http://127.0.0.1:8090/' + slTemp.Strings[i], MyFile); finally FreeAndNil(MyFile); end; end; timer2.enabled := True; memo2.lines.savetofile('versao.txt'); sLabelFX1.Caption := 'Atualização concluída'; end; end; end; function TForm1.UpdateExe():boolean; begin Success := false; // proteger a executavel if FileExists('Launcher.new') then begin form1.Hide; Repeat //o truque cria-se um laço até o if RenameFile('Launcher.exe','Launcher.old') then //tenta renomear o exe begin //RenameFile('Launcher.new','Launcher.exe'); //renomeia o novo como exe // fim extração if FileExists('Launcher.new') then begin RenameFile('Launcher.new', 'Launcher.exe'); Success:=true; end else begin RenameFile('Launcher.old', 'Launcher.exe'); Success:=true; end; Min:=0; //Se não for possível renomear é porque o aplicativo sleep(2000); if Success = false then //não terminou por completo, espero 2 segundos e Min:=Min+1 else Min := 10; end //tento de novo. Espero até 20 segundos (contador) until Min=10; end; if FileExists('Launcher.old') then windows.DeleteFile(pchar(path+'Launcher.old')); Result := Success; end; procedure TForm1.Timer2Timer(Sender: TObject); begin with Edit1 do if Text <> '' then DFUnRar1.Directory:=Text; DFUnRar1.FileName := Lista.Lines[0]; if not FileExists(DFUnRar1.FileName) then begin Exit; end else begin IsExtracting := True; DFUnRar1.Extract; IsExtracting := False; if not Abort then end; Timer2.Enabled := False; end; procedure TForm1.sButton3Click(Sender: TObject); begin winexec('main.exe connect /u127.0.0.1 /p44405', sw_normal); Application.Terminate; end; end.

Olá pessoa, sou novato em Delphi e estou com um pequeno problema que não consigo resolver. Estou recebendo a mensagem Operator not applicable to this operand type. Estou usando pra fazer uma lista de Downloads, porém ele sempre baixa o que está na primeira variavel lista.Lines[0]. Porém preciso que baixe todos os arquivos que estão em lista.Lines. Valeu ! lista.Lines.LoadFromFile('update.txt'); end; //// INICIIO FOR EACH for vAux in lista.Lines do begin ShowMessage(IntToStr(vAux)); sLabelFX1.Caption := 'Baixando: ' + lista.Lines[0]; caminho:='http://127.0.0.1:8090/'; arquivo:= lista.Lines[0]; MyFile := TFileStream.Create(lista.Lines[0], fmCreate); try IdHTTP1.Get('http://127.0.0.1:8090/' + lista.Lines[0], MyFile); finally MyFile.Free; end; end; /// FIM FOR EACH