Comment ouvrir des fichiers .pdu .
Novice20
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Bonjour ou plutôt bonsoir
voilà mon problème j'ai télécharge via ma boite email, des sms que j'avais gardés sur mon telephone et pour les sauvegarder sur mon ordinateur
je n'arrive pas à les ouvrir. Fichier PDU (.pdu
une personne a t'elle une idée ou une astuce pour pouvoir enfin les lire et les sauvegarder autrement.
je vous remercie vivement. et un bon début de semaine à vous tous et toutes
voilà mon problème j'ai télécharge via ma boite email, des sms que j'avais gardés sur mon telephone et pour les sauvegarder sur mon ordinateur
je n'arrive pas à les ouvrir. Fichier PDU (.pdu
une personne a t'elle une idée ou une astuce pour pouvoir enfin les lire et les sauvegarder autrement.
je vous remercie vivement. et un bon début de semaine à vous tous et toutes
A voir également:
- Comment ouvrir des fichiers .pdu .
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Comment ouvrir un fichier dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment ouvrir un fichier 7z - Guide
1 réponse
Bonsoir Novice20,
Le décodage des "sms" n'est pas toujour facile à trouver.
Tu parles d'un fichier ".pdu", mais décodage 7bits, 16 bits ?
Une piste en programmation "Delphi" pour l'encodage et le décodage en 16 bits:
Bon amusement !
Le décodage des "sms" n'est pas toujour facile à trouver.
Tu parles d'un fichier ".pdu", mais décodage 7bits, 16 bits ?
Une piste en programmation "Delphi" pour l'encodage et le décodage en 16 bits:
function Encode16BitsPDU(Text: WideString): String; var i: Integer; begin Result:= ''; for i:= 1 to Length(Text) do Result:= Result+ IntToHex((Ord(Text[i]) and $FF00) shr 8, 2)+ IntToHex(Ord(Text[i]) and $FF, 2); end; function Decode16BitsPDU(Value: String): WideString; var i: Integer; function GetCharFromPDU(cPDU: Integer): WChar; begin Result:= WChar((cPDU shr 8) * 256 + (cPDU and $FF)); end; begin Result:= ''; i:= 1; if (Length(Value) mod 4 > 0) or (Length(Value) = 0) then Result:= 'Error!' else while i < Length(Value) do begin Result:= Result+ GetCharFromPDU(StrToInt('$'+ Copy(Value, i, 4))); Inc(i, 4); end; end;
Bon amusement !
concernant décodage 7 bits, 16 bits... je peux trouver où cette information si ça peut être utile.
Merci Heliotte pour ton message, mais comment dire c'est du chinois??? lol
bon je vais essayer de comprendre un peu.
:)
Je n'ai pas déplacé ton sujet
C'est juste un exemple en Delphi.
Il y en a d'autres sur Internet.