Textdatei zur Anzeige bringen

[DanielBodensee]

Hallo,

ich muss von meinem Programm aus ein anderes Programm im Hintergrund starten, dass selber eine LOG-Datei schreibt.

Zum einen, wie kann ich mit Delphi3 ein Programm im Hintergrund starten (WinExec soll ja out sein) ohne das es sichtbar wird?

Wie kann ich die Logdatei ständig in einem TMemo anzeigen wenn die Datei schon mal 1,5MB groß werden kann? TScrollBox?

Unter Unix kann ich mir mit tail immer aktuell die neuen Zeilen welche in die LOG-Datei geschrieben werden anzeigen lassen. Kann ich unter Delphi3 gleiches machen bzw eben ein Memofeld mit Scroll-Leisten aktuell versorgen?

Wäre für Eure Tipps sehr dankbar, irgendwie finde ich nicht das richtige in der Hilfe...

Gruss,
Daniel

[S2B]

Mit ShellExecute kannst du ein Programm starten. Soviel ich weiß, gibt es einen ShowWindow-Befehl (oder wie das heißt):

Code:

SW_HIDE

Damit müsstest du das Fenster im Hintergrund starten können!

[alcaeus]

Zitat:

Zitat von W32 SDK

ShellExecute(

HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);

Als ersten Parameter gibst du Application.Handle an
Als zweiten PChar("open")
Als dritten PChar(<Programmpfad)
Als vierten nil, außer wenn du Parameter brauchst
Als fünften PChar(ExtractFilePath(Application.ExeName))
Und als letzten SW_HIDE
Bedenke aber dass der Benutzer das zweite Programm nicht sieht, und folgedessen auch nicht so einfach beenden kannst, deshalb bist du für das Beenden des zweiten Programms zuständig.

[DanielBodensee]

Hi,

erst mal vielen Dank für Eure Tips.

Wie aber kann ich das Logfile in meinem Programm über z.Bsp. TMemo so anzeigen, dass auch die weiteren Zeilen die in das LOG-File geschrieben werden aktuell angezeigt werden?

Ich kann es nur so erklären was ich will:
Unter UNIX kann man mit Type wie unter DOS etc eine Textdatei anzeigen lassen. Mit dem Parameter -t oder -tail wird die Datei angezeigt und sobald ein neuer Eintrag hinzukommt, wird auch der gleich angezeigt.

Kann man das auch ohne ständig die Datei schliesen und wieder öffnen zu müßen anzeigen?

Gruss,
Daniel


PS: Beschreibe das evtl etwas umständlich, sind meine ersten Schritte in Delphi 3

[S2B]

Vielleicht mit AssignFile die Zeile in die Datei schreiben und die Zeile auch gleichzeitig ins Memo schreiben?

[alcaeus]

Wichtig ist, dass du andere Operationen auf die Datei zulässt. Dies geschieht nach AssignFile mit

Delphi-Quellcode:

FileMode := fmShareDenyNone;

Anschließend musst du die Dateigröße speichern, und in einem Timer überprüfen, ob sich diese geändert hat. Ist dies der Fall, musst du nur noch die letzten Zeilen ausgeben. Ob Seek auch bei Textdateien funktioniert weiß ich allerdings nicht.

[Sharky]

Die große Frage ist:
Ist das Programm das die LOG-Datei erzeugt von dir bzw. kanns Du an diesem etwas ändern?

[DanielBodensee]

Hallo,

leider wir die LOG-Datei von einem Programm geschrieben, auf das ich keinen Einfluß habe, kann daher leider nichts ändern.

Noch eine andere Frage:
Wenn ich das Programm im Hintergrund gestartet habe, muß ich dieses ja dann auch beenden wenn ich mein Programm schließe. Wie bekomme ich mit, dass das von mir gestartete Programm beendet ist?

Gruss,
Daniel

[S2B]

OnClose der Form, oder? :zwinker:

[alcaeus]

Zitat:

Zitat von S2B

OnClose der Form, oder? :zwinker:

Er hat gesagt, dass es sich um ein Fremdprogramm handelt, ich glaube nicht dass er da eine OnClose bekommt. Du kannst die eine Prozessliste holen und nachschauen, ob ein Prozess noch läuft. Schau mal in der Suche nach, vor kurzem war hier sowas..
Lies dir das hier durch, da könntest du was finden:
http://www.delphipraxis.net/internal...ct.php?t=24268