Discussion :

[lerorodu51]

Bonjour, je suis en Delphi 7 et j'aimerai modifier un TMemoryStream en le parcourant. Voici le code de test déjà présent :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
aMemoryStream := TMemoryStream.Create();
aMemoryStream.LoadFromFile(aFileName);
aWriter:=TWriter.Create(aMemoryStream, 4096);
try
// Parcours du writer pour tester si aWriter.ReadString <> 'test'
// Sinon je modifie (WriteString)
Finally
aWriter.Free;
end;

Est-ce possible ?

[ShaiLeTroll]

TReader c'est pour lire un DFM
TWriter c'est pour écrire un DFM
Est-ce ton fichier est de format DFM ?
Si oui,
Si c'est un DFM Binaire, utilise plutôt ReadComponent, tu changes la propriété puis WriteComponent
Si c'est un DFM Texte, tu peux tricher avec un TStringList ou sinon convertir le DFM Texte en DFM Binaire via System.Classes.ObjectTextToBinary

Si non,
Utilise tout simplement les méthodes Read et ReadBuffer
Si tu dois modifier, Write ou WriteBuffer si la nouvelle donnée est de la même longueur que l'ancienne donnée
Si la nouvelle donnée a une longueur différent, il faut décaler tout le reste du binaire, dans ce cas DEUX Stream, l'un copier dans l'autre

Ta version est trop ancienne, tu n'as pas les classes TStreamReader et TStreamWriter qui sont conçu pour lire un fichier texte, j'ai conçu TTextFileReader en D7 pour lire de très gros fichier texte
je l'utilise encore aujourd'hui sous XE2 dans sa version Ansi TSLTTextFileReader

Tu ne dois pas non plus avoir TBinaryReader et TBinaryWriter en D7 ?

[lerorodu51]

C'est bien un DFM binaire.

J'ai une question : Je ne pourrais pas le "décrypter" (CryptUnCrypt) ,le parcourir comme un fichier texte, le modifier si besoin, puis le réEncrypter et l'enregistrer ?

C'est un peu barbare, mais je cherche juste à remplacer une chaine de caractère par une autre...

[ShaiLeTroll]

... ou sinon convertir le DFM Texte en DFM Binaire via System.Classes.ObjectTextToBinary

TMemoryStream -> ObjectBinaryToText -> TStringStream -> TStringList ou StringReplace brutal -> TStringStream -> ObjectTextToBinary -> TMemoryStream !
ou
TMemoryStream -> ReadComponent -> Component.Property := ... -> WriteComponent -> TMemoryStream