![]() |
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. |
Re: Speichern von Editfeldern in Datei
Delphi-Quellcode:
Und Aufrufen tust Du es soprocedure 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;
Delphi-Quellcode:
und Willkomen in der DP.
AddToBatch('.\batchfile.bat', 'net send '+Edit1.text+' '+edit2.text);
|
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 |
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. |
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: |
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. |
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) |
Re: Speichern von Editfeldern in Datei
Liste der Anhänge anzeigen (Anzahl: 1)
ok, source kommt
|
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 ( ![]() Und was ist jetzt Dein genaues Problem mit dem Codeß |
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 11:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz