Php + FileStream + BinaryWriter

Bonsoir à tous,

Je cherche désespérément sur le net la fonction ou un script qui permettrait d’obtenir le même contenu de fichier.
Le code en Visual Basic 2005 est le suivant :

Code:

---

1 2 3 4 5 6 7

Dim BinaryStream As New BinaryWriter(New FileStream(NomFile, FileMode.Create)) Try BinaryStream.Write(ChaineCaractere) BinaryStream.Close() Catch ex As Exception BinaryStream.Close() End Try

---

Ces lignes produisent par exemple à partir de la chaine suivante ("QJIObFMeoB2eCAaUt3kaX")
ceci : € QJIObFMeoB2eCAaUt3kaX
Il y a une entête rajoutée pour le type de donnée et la longueur je crois.

En PHP, j’ai essayé fwrite, f_puts…

J’ai bien la chaine "QJIObFMeoB2eCAaUt3kaX" dans le fichier mais pas d’entête donc non lisible dans Visual Basic 2005 donc non exploitable par binaryreader.readstring

Merci d’avance pour votre contribution

Pascal

Re,

Je pense avoir trouvé un début de réponse ici :
http://www.ilinfo.fr/blog/post/Binar...-C-DOTNET.aspx

Les fonctions qui servent à sauver les fichiers en binaire sont équivalentes à la seule différence que le DotNet rajoute la longeur du fichier au début sous la forme d'octets.
Donc pour une chaîne de 130 octets : les deux octets de longueur de chaîne écrits en hexa donne 80 01 ( de 0 à 129).

Il faut utiliser la fonction "pack" et ensuite jongler avec les conversion hex bin.
$val2 contient la chaine + les octets de longueur du fichier (code dessous).

Le fichier sauvé en PHP par "fwrite" par exemple est maintenant lisible à l'aide d'un BinaryReader dans DotNet.

J'ai trouvé UNE solution mais j'amerais comprendre pourquoi PHP produit un code sans la longueur du fichier ?

Pascal


Code :

function hex2bin($h)
{
if (!is_string($h)) return null;
$r='';
for ($a=0; $a<strlen($h); $a+=2) { $r.=chr(hexdec($h{$a}.$h{($a+1)})); }
return $r;
}

$val = pack("v",strlen($chaine));
$val2 = hex2bin(dechex(hexdec(bin2hex($val)) +1)).$chaine;