Discussion :

[Pascal_F]

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 VB :

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

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

[Pascal_F]

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;