Zitat von
Neutral General:
Wenn ich jetzt sowas hab :
E2 21 FF 21 AC 11 7D
Kann ich das nicht mit Delphi so in eine Textdatei speichern das das ein richtiges Programm wird ?
Auch wenn das hier wahrscheinlich nichts sinnvolles ergeben würde 
Kein Problem:
Einfach neue Anwendung, TMemo, TEdit und TButton drauf und folgenden Quelltext
Delphi-Quellcode:
// Wandelt Hex Code in Bin Datei um
// Benötigt:
// Memo1 mit Hexwerten
/// (z.B. Memo1.Lines.Text := 'EB 0C 68 65 6C 6C 6F 20 77 6F 72 6C 64 '+
// '24 BA 02 01 B4 09 CD 21 B8 01 4C CD 21';)
// Edit1 mit Dateinamen
// (z.B. Edit1.Text := 'C:\TEMP\TEST.COM';)
//
// written by Dr. MaBuSE
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
s:
string;
BinDatei: TextFile;
begin
s := Memo1.Lines.Text;
// unnötige Zeichen aus Text entfernen
i := length(s);
while i > 0
do
begin
if pos(upcase(s[i]), '
0123456789ABCDEF') = 0
then
begin
delete(s, i, 1);
end;
dec(i);
end;
AssignFile(BinDatei, Edit1.Text);
ReWrite(BinDatei);
// String aus Hexwerten in Bin konvertieren
for i := 0
to (length(s)
div 2)-1
do
begin
Write(BinDatei, Chr(StrToInt('
$'+s[i*2+1]+s[i*2+2])));
end;
CloseFile(BinDatei);
end;