Discussion :

[Art19]

Bonjour,

J'ai fait un CreateFile puis un WriteFile en ecrivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
filename := 'fichier.txt';
h := CreateFile(PChar(filename),
    GENERIC_WRITE,
    0,
    nil,
    CREATE_ALWAYS,
    FILE_ATTRIBUTE_NORMAL,
    0);
 
s := 'Le bonheur est dans le pre';
WriteFile(h, s, Length(s)*sizeof(char), BytesWritten, nil);

Or je ne retrouve qu'une suite illisible de caracteres dans mon fichier final: fichier.txt.. alors que je voudrais retrouver ma phrase 'Le bonheur est dans le pre' donc je ne comprend pas ! En fait j'utilise WriteFile parce qu'il me semble que c'est plus rapide que WriteLn non?

[Art19]

j'ai trouve mon erreur c'est:

Code :

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

1
2
 
WriteFile(h, s[1], Length(s)*sizeof(char), BytesWritten, nil);

et non

Code :

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

1
2
 
WriteFile(h, s, Length(s)*sizeof(char), BytesWritten, nil);

mais comment signaler un retour a la ligne?

[neilbgr]

[..]J'utilise WriteFile parce qu'il me semble que c'est plus rapide que WriteLn non?

Il vaut peut être mieux quelque chose de lisible et fiable, que de la bidouille spécifique soit disant optimisée !
Donc, penche plutot pour le bon vieux WriteLn qui derrière en cuisine fera certainement mieux que toi (ou moi) l'apprentit cuisto avec les API windows.
Et puis, c'est une bonne habitude à prendre que d'éviter les API spécifiques (à un OS, à une boite, ...), et seulement ensuit chercher à optimiser éventuellement, si cela est vraiment indispensable.

[neilbgr]

mais comment signaler un retour a la ligne?

Bin c'est selon l'OS: #13#10 (windows) ou bien #13 ou bien encore #10

Laisse faire le WriteLn... il le prend en charge tes soucis...

Fait attention, il te faut savoir que le type string en Delphi est un tableau de char qui commence à 1, car est stocké l'information sur la longueur à l'indice 0...

[Art19]

ok mais bon je me suis fait engueule parce que j'utilisais WriteLn!

[neilbgr]

Tu t'es fais enguelé par qui ?

En tous cas, prend ce que je te dis juste comme un conseil pour pas se prendre la tête avec des problème que d'autre gars on pris en charge pour toi.

[Art19]

mon boss!
je me suis pas fait "engueule" mais bon il m'a fait comprendre que ya mieux que WriteLn..

[neilbgr]

Peut-être qu'il y a mieux que le WriteLn, mais ç'est pour faire quoi ?
Ecrire un fichier texte ?
Loguer quelque chose ?

Donne-nous des indices stp, sinon nos réponses seront aussi précises que tes questions

[neilbgr]

Après, je peux te proposer la classe TFileStream qui te permettra de lire et/ou écrire de manière optimisé (car derrière ça utilise le stream windows) et c'est en meme temps parfaitement lisible (et portable).

(Ecris TFileStream quelque part dans ton code, et fait F1 - ou bien cherche un peu sur le net)

[Paul TOTH]

mon boss!
je me suis pas fait "engueule" mais bon il m'a fait comprendre que ya mieux que WriteLn..

hihi, ton boss, il ferait mieux de s'occuper de son boulot que de celui des programmeurs

et si tu veux pas utiliser TextFile, faut pas pour autant taper dans l'API Windows, mais utiliser un TStringList.Load/SaveFromFile ou un TFileStream

[Art19]

oui c'est clair
Ok merci pour le TFileStream

[LadyWasky]

Oui, et puis tu diras de ma part à ton boss qu'utiliser ce que WriteLn, ce n'est pas forcément plus mauvais que WriteFile... au contraire même, surtout le jour où vous décidez de porter le code sous Linux :
WriteFile est une spécificité du langage Pascal (et Delphi), qui se retrouve sous les Pascal "Linux". Alors que WriteFile, coté portabilité, c'est plutôt limité.

En plus question clarté de code, c'est un peu plus "propre" et maintenable.

Enfin, quitte à utiliser les possibilités du Langage choisi pour développer, autant utiliser, comme le recommande sagement Paul Toth , TFileStream (pour les fichiers de tout poils), et TStringList (vraiment fait pour les fichiers textes).

Franchement, "le pourquoi faire simple quand on peut faire compliqué" n'est pas une philosophie de développement à adopter.


Cependant, une remarque ici :

Code :

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

WriteFile(h, s[1], Length(s)*sizeof(char), BytesWritten, nil);

Sizeof(char) est égal à 1 (1 octet) donc totalement inutile...

d'où, si ton boss y tient vraiment

Code :

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

WriteFile(h, s[1], Length(s), BytesWritten, nil);

[CapJack]

Oui, et on peut aussi faire :

Code :

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

WriteFile(h, PChar(s), Length(s), BytesWritten, nil);

C'est plus propre.

Je rejoins ce qu'a écrit waskol : WriteFile est en principe une fonction de l'API Windows. Mais je ne suis pas sûr à 100% qu'elle ne soit pas simulée dans Kylix.

Quelqu'un peut essayer, peut-être ?

Ah, et pour le SizeOf(Char)... hum. Et le jour où Delphi sera Unicode par défaut ? Non, c't'une blague...

[Fabrice ROUXEL 1]

Tout est relatif!
Si on ne quitte pas le monde windows, connaître WriteFile c'est aussi pouvoir l'utiliser en C++ par exemple.

Ah, et pour le SizeOf(Char)... hum. Et le jour où Delphi sera Unicode par défaut ? Non, c't'une blague...