Dateien in Binärcode

[Goldor]

hallo, ich suche nach ner methode um eine datei, egal ob bild oder
mp3.... in binärcode zu wandeln und wieder zurück. ich will nur in
ein edit feld den pfad der datei eingeben müssen und der gibt mir
per button click den binärcode in nem memo aus. wär net wenn ihr
code posten könntet, am besten mit //kommentaren
danke im vorraus

[taaktaak]

Möchtest du den Source mit 'ner rote oder blauen Schleife umwickelt haben?

[Goldor]

blau gefällt mir gut^^, ne spass bei seite, ich nehme was ich
kriegen kann, aber wär nett wenn da mir einer beim
durchblicken hilft

[mkinzler]

Bilder sind doch schon binär

[Goldor]

und wie kann ich die in nem memo ausgeben lasse? m
it memo1.loadfromfile(bild.jpg) oder wie?

[Relicted]

*hust* TFilestream *hust*
... da hast es denn in hex... wie man dann auf binär kommt... ich weiß es nicht... vielleicht indem man den kopf etwas rattern lässt... oder diese SuFu benutzt... ich bin so unentschieden...

[Valle]

Zitat von mkinzler:

Bilder sind doch schon binär

Ich glaube er meint Binärdarstellung, so mit Nullen und Einsen und so:

Code:

00110000 00011100 00001101
00100010 00000000 00000000
01100100 10011110 11000011

@Goldor: Versuche doch mal die Suche zu benutzen. Du musst jedes einzelnes Byte durchgehen und in die binäre Schreibweise umwandeln. Das dürfte bestimmt alles zu finden sein. Fertigen Code wirst du hier nicht kriegen.

Mit freundlichen Grüßen,

Valle

[Goldor]

@Valle: endlich einer der mich versteht.... danke dir für die
tipps, ich versuch mal das mit suchen^^

[Michael Habbe]

Hi,

schau mal hier: http://www.delphipraxis.net/internal...=957298#957298

Da habe ich ein wenig Code gepostet.
Auf das Risiko, dass ich Dir bei Deinen Hausaufgaben helfe, gehe ich mal ein; aber rausfinden, wies funktioniert musst Du selber


Michael

[Valle]

Zitat von Michael Habbe:

Auf das Risiko, dass ich Dir bei Deinen Hausaufgaben helfe, gehe ich mal ein; aber rausfinden, wies funktioniert musst Du selber

Ich bezweifle doch recht stark, dass es Hausaufgabe ist, Dateien
in Binärzahlen in einem Memo darzustellen.

Mit freundlichen Grüßen,

Valle