Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Speichern von Editfeldern in Datei (https://www.delphipraxis.net/65629-speichern-von-editfeldern-datei.html)

Dark Coke 19. Mär 2006 02:16


Speichern von Editfeldern in Datei
 
Hi, ich möchte (als totaler Anfänger) ein Programm schreiben, dass zwei editfelder (einmal IP/computername und eimal den Nachrichtentext) in eine Batchdatei schreibt und diese dann ausführt. Der Hintergrund ist, dass ich eine Oberfläche für den "Net send" Befehl aus Dos basteln will.
dh ich bräuchte die Ausgabe in eine datei mit endung .bat (der eigentliche Dateiname is egal, weil sowieso nur temporär) und dem inhalt:
net send (edit1.text) (edit2.text)
kann mir dabei jemand helfen, oder sich sogar erbarmen mir den fertigen code zukommen zu lassen?
hier is noch das was ich bisher gemacht habe:

Delphi-Quellcode:
unit Chat2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(PChar('C:\Dokumente und Einstellungen\Administrator\Desktop\Batch\del.bat'), sw_Show);
edit2.Text:='';

end;
end.

Harry M. 19. Mär 2006 02:22

Re: Speichern von Editfeldern in Datei
 
Delphi-Quellcode:

procedure AddToBatch(FileName, Command: String);
var
  Datei : System.Text;
begin
  AssignFile(Datei, FileName);

  if FileExists(FileName) then
    Append(Datei)
    else
    ReWrite(Datei);

  Writeln(Datei, Command);
  Closefile(Datei);
end;
Und Aufrufen tust Du es so
Delphi-Quellcode:
AddToBatch('.\batchfile.bat', 'net send '+Edit1.text+' '+edit2.text);
und Willkomen in der DP.

Dark Coke 19. Mär 2006 02:35

Re: Speichern von Editfeldern in Datei
 
Mir verschlägts die Sprache, so schnelle Antwort, und gleich Einwandfrei und für Anfänger verständlich.
Die 5 Stunden Google Recherche hätt ich mir sparen können;-)) Ich danke vielmals.
gruss
Die dunkle Seite der Cola

Harry M. 19. Mär 2006 02:46

Re: Speichern von Editfeldern in Datei
 
Naja unter Umständen könnte noch eine Fehlerbehandlung-Routine mit rein ;-)
Aber da kommste noch hin, viel Spaß dabei.

Dark Coke 19. Mär 2006 03:00

Re: Speichern von Editfeldern in Datei
 
Liste der Anhänge anzeigen (Anzahl: 1)
Also, ich hab jetzt mal die Fehlermeldung rausgenommen, weil ich die sonst immer gleich bei der ersten Meldung den Fehler krieg. (und wenn ich das prog beende ohne etwas geschrieben zu haben.)
Und dass hier ist rausgekommen:

Harry M. 19. Mär 2006 03:18

Re: Speichern von Editfeldern in Datei
 
A) Bei Programmen von "Neulingen" drücke ich aus guten Grund nicht einfach irgendwo rum und schon gar nicht wenn sie nen Host haben wollen.
Lege mal Source mit zu bitte!

B) DOS-Basiert?? Ich sehe ja nicht mal ne Console. Ich glaube hier in der DP gabs das schon mal ein DOS-basierten Chat. Suche mal nach Sockets. Wirst schon fündig werden.

Dark Coke 19. Mär 2006 03:23

Re: Speichern von Editfeldern in Datei
 
also A) viren sind keine drin wenn du dass meinst, (was du mit dem Host meinst kann ich nur ahnen(aber eigenen Webspace und Domains hab ich)
B) Die Konsole müsste aber funktionieren, bei mir tuts, die temporäre Batchdatei wird auf C:\Batchfiletemp.bat geschrieben und ausgeführt. aber ich glaube mit XP tuts nicht mehr so ganz, auf WIN2000 Basis aber 90% (viel über die console ausprobiert)

Dark Coke 19. Mär 2006 03:24

Re: Speichern von Editfeldern in Datei
 
Liste der Anhänge anzeigen (Anzahl: 1)
ok, source kommt

Harry M. 19. Mär 2006 03:38

Re: Speichern von Editfeldern in Datei
 
Wenn ich meine Console rede ich vom ApplicationType {$APPTYPE CONSOLE}. Nicht von einer Batchfile ;-) Diese ist nämlich nur ein Befehlsscript.

Ich traue Dir auch gar nicht zu Vieren zuschreiben zukönnen. Deshalb auch nicht. Ich weiss nur gern was pasiert wenn ich wo drücke.

ein Host kann eine IP (127.0.0.1), Url (www.bla.de) oder ein Hostname (\\localhost) sein.

Und was ist jetzt Dein genaues Problem mit dem Codeß

Dark Coke 19. Mär 2006 03:42

Re: Speichern von Editfeldern in Datei
 
Das hast du gelöst... ;-))
mein Problem war die implementierung von den editboxen in das Batchfile, und da hast du mir die Lösung präsentiert. :-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:38 Uhr.
Seite 1 von 2  1 2      

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