Discussion :

[bs.box]

Salut,
Je veux lire le contenu d'un fichier binaire autant qu'un text
et je ne trouve pas comment, j'ai déja utilisé le MEMO et RichEdit
mais pas de chance,

Donc, s'il y'a une meilleure idée à l'implementer d'une
manière que l'utilisateur peut copier une chaine de caractères
ça serait la bonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  if OpenDialog1.Execute
     then begin
     Src_File.Text:=OpenDialog1.FileName;
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName)
          end

Merci d'avance.

[ShaiLeTroll]

Un Fichier Texte n'est finalement qu'un Fichier Binaire avec un Alphabet limité !
Si ton fichier contient des caractères non imprimables, tu auras des difficultés à l'afficher avec un Mémo sans le nettoyer au préalable !

Regarde le fonctions AssignFile, ReadBlock ou TFileStream ...

[bs.box]

Si ton fichier contient des caractères non imprimables,
tu auras des difficultés à l'afficher avec un Mémo
sans le nettoyer au préalable !

Effectivement;

J'ai essayé une autre idée;
Je me sert d'une fontion qui me fait convertire une chaine de caractères
en HEX, c'est le minimum à donner pour que l'utilisateur copie la bonne
et exacte information..

Ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
4D 5A 50 00 02 00 00 00 04 00 0F 00 FF FF 00 00 - MZP......ےے..
B8 00 00 00 00 00 00 00 40 00 1A 00 00 00 00 00 - ¸.......@......
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 - ................
00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 - .............
..
BA 10 00 0E 1F B4 09 CD 21 B8 01 4C CD 21 90 90 - ؛.´.ح!¸
Lح!گگ
54 68 69 73 20 70 72 6F 67 72 61 6D 20 6D 75 73 - This.program.mus
74 20 62 65 20 72 75 6E 20 75 6E 64 65 72 20 57 - t.be.run.under.W
69 6E 33 32 0D 0A 24 37 00 00 00 00 00 00 00 00 - in32..$7........

En ce qui concèrne les caractères non imprimables j'ai fait ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 if Buffer[i] in [#0,#7,#8,#9,#10,#12,#13,#32]
    then ASCII_String:=ASCII_String+'.'
    else ASCII_String:=ASCII_String+Buffer[i];

Enfin j'éspère que ceux sont les seuls !

Merci tout de même