ENCAPSULATION OLE OPENOFFICE
cs_FredY68
Messages postés
11
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
8 juin 2009
-
8 juin 2009 à 15:46
cs_FredY68 Messages postés 11 Date d'inscription samedi 5 juillet 2003 Statut Membre Dernière intervention 8 juin 2009 - 9 juin 2009 à 14:34
cs_FredY68 Messages postés 11 Date d'inscription samedi 5 juillet 2003 Statut Membre Dernière intervention 8 juin 2009 - 9 juin 2009 à 14:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50129-encapsulation-ole-openoffice
https://codes-sources.commentcamarche.net/source/50129-encapsulation-ole-openoffice
9 juin 2009 à 14:34
merci
Fredy
8 juin 2009 à 18:19
dans l'objet TOODoc, il y a une procedure qui te permet d'enregistrer un fichier
function Enregistrer(s_fichier: string ''; b_ecrase: Boolean False): boolean;
s_fichier : nom du fichier
b_erase : écrase un fichier existant si True
Luc.
8 juin 2009 à 18:07
j'ai trouvé la correction pour D7 :
--- ligne erreur corrigée ---
if (c in ['0'..'9', 'a'..'z', 'A'..'Z'])
or (x = 0) then
Result:= c
------------------------------------------------------
verif de la syntaxe correct.
je cherchais à OOo writer et ce source répond à mes attentes --- il me reste à trouver comme enregistrer le fichier.
8 juin 2009 à 17:00
8 juin 2009 à 15:46
lorsque je lance une vérification de la syntaxe, le message d'erreur suivant, pour 'unité "objet_00.pas", apparaît : Charinset identificateur non déclaré.
---- extrait de la fonction ---
function escapeToUTF8URL(c: Char): String;
var x: Integer;
begin
if ord(c) < 128 then begin
x:= Pos(c, USASCIIexcl);
if CharInSet(c,['0'..'9', 'a'..'z', 'A'..'Z'])
or (x = 0) then
Result:= c // caractères acceptés, réservés ou non réservés
else // caractères exclus, à convertir
Result:= Copy(USASCIIexcl, x+1, 3);
end else begin // conversion en UTF8 à deux octets
x:= Pos(c, UTF8chars);
if x > 0 then
Result:= Copy(UTF8chars, x+1, 6)
else // caractère inconnu ( mettre à jour la table UTF8chars ? )
Result:= '?';
end;
end;
------------------------------------------------------
Me considérant encore débutant, je n'arrive pas à corriger l'erreur.
Merci pour votre réponse.