Ich gebe Dir vollkommen recht und wer den Beitrag komplett liest, der ist deutlich im Vorteil.Code: Alles auswählen
procedure TForm1.Button_performInstalClick(Sender: TObject);
// (...)
// (...)
Sleep(500);
MaxCurSteps:= dest.Count;
Step:=2;
ProgressBar_download.Max:=MaxCurSteps-1;
if FTPLogin('***','***','mark332.bplaced.net','21') = true then // ----------|!|----------
begin // ----------|!|----------
for i:=0 to MaxCurSteps-1 do
begin
Memo_step.Lines.Add ('');
if i = 4 then
begin
Memo_step.Lines.Add('Downloading '+recs[i]+' || This will take a while! ||');
end
else
begin
Memo_step.Lines.Add('Downloading '+recs[i]);
end;
FTPDownload('source/'+recs[i],InstalDir+'\'+dest[i]);
Memo_step.Lines.Add('Extracting '+dest[i]);
Sleep(500);
CurStep:=i+1;
captions:= 'Installiere... : Schritt '+IntToStr(Step)+'/2 ('+IntToStr(CurStep)+'/'+IntToStr(MaxCurSteps)+')';
StaticText_download.caption:=captions;
ProgressBar_download.position:=CurStep;
end;
FTPLogout; // ----------|!|----------
failes:=false;
end // ----------|!|----------
else // ----------|!|----------
begin // ----------|!|----------
failes:=true; // ----------|!|----------
end; // ----------|!|----------
if (failes=true) then
begin
ShowMessage('Es ist ein Fehler aufgetreten, setze Installation zurück!');
Sleep(500);
rmDir(InstalDir);
if FileExists('resource.txt') then
begin
DeleteFile('resource.txt')
end;
if FileExists('destination.txt') then
begin
DeleteFile('destination.txt')
end;
if FileExists('dirs.txt') then
begin
DeleteFile('dirs.txt')
end;
Application.Terminate;
end;
if not (failes=true) then
begin
ShowMessage('Erfolgreich installiert!');
Button_prev.Enabled:=false;
x:=x+1;
LockExit:=false;
end;
end;
1. Ob ich MaxCurSteps über dest.Count oder recs.Count setze ist egalgocher hat geschrieben:Tut mir leid aber Dein Code ist dermaßen schlecht strukturiert, da komme ich beim Lesen schon ins grübeln ob Du überhaupt noch weißt wo Du dich befindest, warum setzt Du nicht MaxCurSteps über recs.Count (MaxCurSteps := recs.Count;), wieso setzt Du ProgressBar_download.Max:=MaxCurSteps-1; wo doch am Ende ProgressBar_download.position:=CurStep; der wiederum CurStep:=i+1; und somit am Ende einen Wert von MaxCurSteps erreicht???
Bei solchen Fehlern kann die Debug-Funktion von Vorteil sein, setze doch einen Breakpoint in die Schleife und überprüfe Deine Werte!
, weil beides den selben Wert ausgibt.
(ich schau mal, obs daran liegt)
:
Code: Alles auswählen
Der Installer lädt 3 Dateien runter, in denen 1. Zu erstellende Ordner... 2. Die Namen der herunterzuladenden Dateien... und 3. Die lokalen Namen der heruntergeladenen Dateien ...stehen.
Das Programm soll die drei Dateien auslesen und in eine TStringList ablegen.
Jetzt sollen die genannten Ordner (TStringList: dirs) erstellt werden (klappt auch schon ;) )
Danach sollen die ursprünglichen Dateien (TStringList: recs) vom FTP heruntergeladen werden und als neue, lokale Dateien (TStringList: dest) gespeichert werden.
Schlägt der Download fehl, sollen vorherige Schritte rückgängig gemacht werden.
Jup erhalten, auch wenns keine Problemlösung war xD ... , Danke für den HinweisAchtzig hat geschrieben:Ich habe Dir gerade eine PM geschickt. Weiß aber nicht, ob Du die auch bekommst, da sie im Ordner "Postausgang" verbleibt und nicht unter "Gesendete Nachrichten" erscheint. Kenne mich mit den PMs hier im Forum nicht aus und weiß nicht, ob "gesendet" eher "hat empfangen" bedeutet
Wenn Du keine PM erhalten hast, sage mir doch bitte Bescheid.
Jo, schon passiert, was passieren muss ums zu verhindernAchtzig hat geschrieben:Jo, wäre aber auch gemein, eine Lösung per PM zu schicken wenn die Frage im Forum gestellt wird
Zu Deiner PM kann ich nur sagen, nehme es nicht zu leicht. Auch ohne Adminrechte kann man eine Menge Unfug anstellen, für die Du dann gerade stehen mußt. Und die Daten waren lange genug sichtbar
Zumindest weiß ich jetzt, daß "gesendet" tatsächlich "hat gelesen" bedeutet. Nun ist die PM nämlich in "gesendet".
Das ist aber spätestens dann ein Problem, wenn man Hilfe von den Anderen braucht. Ein halbwegs aufgeräumter Quelltext ist da wirklich sehr hilfreichmark332 hat geschrieben: 4. Ja, ich verstehe meinen Code selbst, aber ich behaupte nicht, dass andere da Durchblick haben
Code: Alles auswählen
recs.LoadFromFile('resource.txt');Code: Alles auswählen
recs.TextLineBreakStyle:=tlbsLF;Code: Alles auswählen
strip -s *.exeCode: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ComCtrls, ExtCtrls, synutils;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo_step: TMemo;
Panel1: TPanel;
ProgressBar_download: TProgressBar;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
InstalDir:String;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
MaxCurSteps, Step, i: Integer;
failes: Boolean;
dirs: TStringList;
recs: TStringList;
begin
InstalDir:='C:\Temp\Test'; //Verzeichnis zum testen
dirs:= TStringList.create;
recs:= TStringList.create;
Memo_step.Lines.Add('Lese Dateien ein...');
application.ProcessMessages; //aktualisiert das Fenster
// Dateien einlesen
recs.LoadFromFile('resource.txt'); //einfacher als mit Files, AssignFile...
recs.TextLineBreakStyle:=tlbsLF; //deine Dateien haben nur 0x0A als Zeilenende
dirs.LoadFromFile('dirs.txt');
dirs.TextLineBreakStyle:=tlbsLF;
MaxCurSteps := dirs.Count;
ProgressBar_download.Max := MaxCurSteps;
//Ordner erstellen
for i:=0 to (MaxCurSteps-1) do
begin
//GUI
Memo_step.Lines.Add('Erstelle Verzeichnis "'+dirs[i]+'"');
caption := 'Installiere... : Schritt 1/2 ('+IntToStr(i+1) + '/' + IntToStr(MaxCurSteps) + ')';
ProgressBar_download.position := i+1;
application.ProcessMessages;
//Aktion
ForceDirectories(InstalDir+PathDelim+dirs[i]);
end;
MaxCurSteps:= recs.Count;
Step:=2;
ProgressBar_download.Max:=MaxCurSteps-1;
failes:=false;
//Download
if FTPLogin('mark332.bplaced.net','21','name','passwort') then
begin
for i:=0 to MaxCurSteps-1 do
begin
//GUI
Memo_step.Lines.Add('Download von "'+recs[i]+'"');
caption:= 'Installiere... : Schritt '+IntToStr(Step)+'/2 ('+IntToStr(i+1)+'/'+IntToStr(MaxCurSteps)+')';
ProgressBar_download.position:=i+1;
application.ProcessMessages;
//Aktion
FTPDownload('source/'+recs[i], InstalDir+PathDelim+recs[i]); //da resource.txt und destination.txt identisch sind, verwende ich nur eine davon
end;
FTPLogout;
end else
begin
failes:=true;
end;
if failes then
begin
ShowMessage('Es ist ein Fehler aufgetreten, setze Installation zurück!');
//rmDir funtioniert nur bei leeren Ordnern
end else
begin
ShowMessage('Erfolgreich installiert!');
end;
end;
end.
Code: Alles auswählen
unit synutils;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, ftpsend;
procedure FtpLogout;
function FtpLogin(const IP, Port, User, Pass: string): Boolean;
function FtpDownload(const FileName, LocalFile: string): Boolean;
var FtpInstance :TFTPSend = Nil;
implementation
function FtpLogin(const IP, Port, User, Pass: string): Boolean;
begin
Result:=False;
FtpInstance:=TFTPSend.Create;
with FtpInstance do
try
if User <> '' then
begin
Username := User;
Password := Pass;
end;
TargetHost := IP;
TargetPort := Port;
Result:=Login;
if not Result then Free;
except
Free;
end;
end;
function FtpDownload(const FileName, LocalFile: string): Boolean;
begin
with FtpInstance do begin
DirectFileName := LocalFile;
DirectFile:=True;
Result := RetrieveFile(FileName, False);
end;
end;
procedure FtpLogout;
begin
FtpInstance.Logout;
FtpInstance.Free;
end;
end.
Verein
Links
Suche