AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

möchte eine logdatei

Ein Thema von technik05 · begonnen am 16. Mär 2008 · letzter Beitrag vom 16. Mär 2008
Antwort Antwort
Seite 1 von 2  1 2      
technik05

Registriert seit: 16. Mär 2008
51 Beiträge
 
#1

möchte eine logdatei

  Alt 16. Mär 2008, 16:31
Hallo, meine frage lautet:

Wenn einer ein Button drückt wird eine Batchdatei ausgeführt!
Das geht auch alles!

Würde jetzt gerne eine listbox einbauen wo eine logdatei geschrieben wird,
sobald ein button gedrückt wird ! welcher Button und welche Uhrzeit

Bitte gibt mir den kompletten quelltext an, bin noch ganz neu dabei

Danke
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:35
Hier würde sich TJvLogFile aus der JVCL anbieten
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Fussball-Robby
Fussball-Robby

Registriert seit: 22. Okt 2007
Ort: Nähe Köln
1.063 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:35
Zitat von technik05:
Bitte gibt mir den kompletten quelltext an, bin noch ganz neu dabei
Wir sind hier nicht dazu da, dir dein ganzes Programm zu schreiben. So. Wie weit bist du denn, bzw. wo kommst du nicht weiter?

Mfg
Robert L.
Der folgende Satz ist richtig!
Der vorherige Satz ist falsch!

Paradox
  Mit Zitat antworten Zitat
Adrian112
(Gast)

n/a Beiträge
 
#4

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:36
Machs doch so:
Delphi-Quellcode:
// Im Button.OnClick Pseudocode:
Log.Lines.Add('Button1 ' + DateDoStr(Time));
  Mit Zitat antworten Zitat
s-off
(Gast)

n/a Beiträge
 
#5

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:36
Hallo,

1. hast Du keine Frage gestellt
2. in wie fern hängt die Listbox mit einer Logdatei zusammen
3. den kompletten Quelltext musst Du Dir schon selber erarbeiten. Wenn Du aber genau sagst, was Du willst, und zeigst,w as Du bisher bereits hast, dann wird man Dir sicher helfen können. Aber nicht nach dem Motto "Ich will dies und das - macht mal"....
  Mit Zitat antworten Zitat
Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#6

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:37
Zitat von technik05:
Bitte gibt mir den kompletten quelltext an, bin noch ganz neu dabei
Hier findest du was du brauchst.

Zum Hinzufügen einer Zeile in die Listbox benutzt man:Listbox.lines.add(einString); Die Datumsfunktionen findest du in der Hilfe.

MfG,
Bug

EDIT: Wo ist der rote Kasten, wenn man ihn mal braucht?
Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
  Mit Zitat antworten Zitat
technik05

Registriert seit: 16. Mär 2008
51 Beiträge
 
#7

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:40
so sieht mein quelltext aus:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ShellAPI;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel2: TPanel;
Label2: TLabel;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Panel3: TPanel;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Panel4: TPanel;
Label3: TLabel;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR e: INTEGER;

begin

e := ShellExecute

(Handle,

NIL,

PCHAR('C:\Dokumente und Einstellungen\Administrator\Desktop\Handyalarm\tes t.BAT'),

PCHAR(''),

NIL,

SW_SHOW);

IF (e<=32) THEN

begin

ShowMessage('Fehler: Batch-Datei konnte nicht ausgeführt werden!')


end

end;

end.

habe heute mit delphi angefangen, wie mache ich das jetzt mit einer logdatei bitte??
  Mit Zitat antworten Zitat
technik05

Registriert seit: 16. Mär 2008
51 Beiträge
 
#8

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:42
so sieht mein quelltext aus :

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR e: INTEGER;

begin

e := ShellExecute

(Handle,

NIL,

PCHAR('C:\Dokumente und Einstellungen\Administrator\Desktop\Handyalarm\test.BAT'),

PCHAR(''),

NIL,

SW_SHOW);

IF (e<=32) THEN

begin

ShowMessage('Fehler: Batch-Datei konnte nicht ausgeführt werden!')


end

end;

end.
so wie mache ich das jetzt, das eine logdateigeschrieben wird sobald ein button gedrückt wird

[edit=Matze]Du wurdest schon darauf hingewiesen, die [delphi]-Tags zu nutzen. Dann verwende diese zukünftig bitte auch. Ich habe sie ausnahmsweise für dich eingefügt.
Noch ein Hinweis: Verwende weniger Leerzeilen im Code, dann wird er deutlich übersichtlicher. MfG, Matze[/edit]
  Mit Zitat antworten Zitat
Adrian112
(Gast)

n/a Beiträge
 
#9

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:45
Hab ich doch oben geschriebn, oder machs mit der JVCL! (Wurde auch schon gesagt!)
  Mit Zitat antworten Zitat
technik05

Registriert seit: 16. Mär 2008
51 Beiträge
 
#10

Re: möchte eine logdatei

  Alt 16. Mär 2008, 16:46
wie sieht sowas aus ? habe vor drei stunden mit delphi 5 angefangen
( 1 schuljahr ) danke
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:49 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