Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi SynchronisierungsPorg mit progressbar und TiniFile (https://www.delphipraxis.net/31317-synchronisierungsporg-mit-progressbar-und-tinifile.html)

roxxy 7. Okt 2004 09:54


SynchronisierungsPorg mit progressbar und TiniFile
 
Hey Leutz

Bin gerade dabei ein Synchronisierungsprog zu schreiben und habe da ein paar Probleme..


1.Das Programm soll seine Infos aus den ini Datei bekommen.
Das erstellen ist klar, aber wie kommt er an die Infos der DAtei??
Die sieht so aus:


[Bereich1]

QuellPfad= ...
ZeilPfad= ...
Mudus= ...

In Modus steht dann ein Schlüsselwort, z.b Aktuell. Das soll alle älteren Dateien im ZielPfad
durch die jüngere im QuellPfad ersetzen.

2.Möchte ich in dieses Programm eine Progressbar einbauen, wegen dem Fortschritt.
Kann mir jemand dazu genau sagen, was ich zu tun habe.bin total am verzweifeln. :wall:



Wäre super wenn ihr mir helfen könntet.


danke schon mal im vorraus.

Steve 7. Okt 2004 09:58

Re: SynchronisierungsPorg mit progressbar und TiniFile
 
Modus prüfen kannste bspw. über
Delphi-Quellcode:
if myIni.ReadString('Sektion','Modus','Default') = 'Aktuell' then...
Für die Progressbar brauchst Du die Anzahl der zu kopierenden Files, die bekommste über [oh]FindFirst, FindNext[/oh] :)

[edit] nimm für Modus doch lieber nen Integer-Wert, dann funzt auch ne Case-Abfrage [/edit]

Gruß
Stephan :dance:

roxxy 7. Okt 2004 10:04

Re: SynchronisierungsPorg mit progressbar und TiniFile
 
ich habe leider noch nicht so die ahnung davon.


Wie lege ich für modus nen int wert fest??


Dann mache ich ne find first/next abfrage und wie kriege ich dann passend die progressba hin??

Steve 7. Okt 2004 10:58

Re: SynchronisierungsPorg mit progressbar und TiniFile
 
Zitat:

Zitat von roxxy
Wie lege ich für modus nen int wert fest??

Delphi-Quellcode:
{ -- bisher in etwa so: -- }
var
  Modus : String;
begin
  Modus := 'Aktuell'; // Oder was auch immer

{ -- stattdessen z.B. so: -- }
const
  MODUS_DEFAULT = -1;
  MODUS_AKTUELL = 1; // Oder was
  MODUS_ALLE   = 2; // auch immer...
{...}
var
  Modus : Integer;
begin
  Modus := MODUS_AKTUELL;

{ -- Auslesen aus INI: -- }
 Modus := myIni.ReadInteger('Sektion','Modus',MODUS_DEFAULT);
{ Case-Abfrage möglich: }
Case Modus Of ...

Zitat:

Zitat von roxxy
Dann mache ich ne find first/next abfrage und wie kriege ich dann passend die progressba hin??

Schau Dir die Funktionen mal an und schau Dir die OH von TProgressBar mal an und dann kannste mit ner schönen Schleife hochzählen/Fortschritt anzeigen oder sonstiges...

Gruß
Stephan :dance:

roxxy 7. Okt 2004 11:14

Re: SynchronisierungsPorg mit progressbar und TiniFile
 
ich probiere es mal


danke für die schnelle hilfe


:thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz