AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 00:49:06
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

7 commentaire(s) de beckerich sur des sources sur tout CodeS-SourceS

Le : 08/06/2009 18:19:02
Source : ENCAPSULATION OLE OPENOFFICE
Bonsoir,

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.

Le : 26/12/2008 19:29:13
Source : MESSAGE EN FEU D'ARTIFICE
mettez la constante à zéro et on assiste à la naissance d'une naine blanche !
Luc.

Le : 26/12/2008 19:26:21
Source : MESSAGE EN FEU D'ARTIFICE
bravo bravo,
J'ai changé la constante TailleLettre = 20 et on lit mieux le message.
En 10, c'est pas mal non plus mais le mesage s'efface trop vite. Il faudrait ajouter un petit délais entre, mais la fluidité en pâtirait. Mes compétences en graphisme s'approchant de zéro, voire moins, j'ai pas osé essayer comprendre le code.

Merci Barbichette

Le : 08/11/2008 14:57:33
Source : GÉNÉRATEUR DE CALENDRIER TYPE AGENDA
Ouvrez le fichier dfm de l'unité RP_Calendrier et recréez la fiche avec votre version de QuickReport, ça devrait aller. Le report n'a rien d'inhabituel.

Le : 07/11/2008 10:16:51
Source : GÉNÉRATEUR DE CALENDRIER TYPE AGENDA
Bonjour,

cette erreur survient si tu compiles avec une version inférieure à delphi 2007. Il faut supprimer la ligne
Application.MainFormOnTaskbar := True;
dans le fichier dpr;

C'est tout ! Note que j'ai bien noté que c'était une source delphi 2007 !

Le : 01/11/2008 20:07:59
Source : RÉELS ET RÉALITÉ
ahh ces programmeurs, tu leur file un grain de riz, ils te nourissent la Chine ... ;-))

Le : 19/11/2007 08:13:20
Source : EXPORTER UN DATASET DANS UNE FEUILLE DE CALCUL OPENOFFICE
Bonjour DelphiProg,
merci pour le commentaire. Il y a sûrement moyen d'écrire cela d'une manière plus efficace. Le problème est que je suis restaurateur, passionné de programmation, si si c'est compatible... Je n'ai pas vraiment le temps d'affiner mes programmes. J'ai écrit mon programme de gestion du restaurant sur une base interbase, et je veux ne plus avoir à utiliser m$office, pas envie de payer.
Pour compléter un peu, voici le code pour créer soit un document nouveau, soit un document à partir d'un modèle :

[code]
const
  CS_OPENOFFICE = 'com.sun.star.ServiceManager';
  CS_DESKTOP    = 'com.sun.star.frame.Desktop';
  CS_TABLEUR    = 'private:factory/scalc';
  CS_BLANK      = '_blank';
  CS_EDITEUR    = 'private:factory/swriter';

//swriter pour le traitement de texte.
//scalc pour le tableur
//sdraw pour l'éditeur de dessin
//simpress pour l'éditeur de présentation (équivalent de PowerPoint)
//smath pour l'éditeur de formule mathématique
//swriter/Global Document document maitre
//swriter/web Pour l'éditeur HTML

procedure CreerNouveauDocOO(var NouveauClasseur: Variant; var Instance: variant;
                              s_type: string; s_modele: string = '' );
const
  pr= 'file:///';
begin
  { document vide de type indiqué }
  if Length(s_modele) = 0 then
  begin
    NouveauClasseur := CreeDesktopOO(Instance).LoadComponentFromURL(s_type, CS_BLANK, 0, VarArrayCreate([0, -1], varVariant));
  end
  else
  begin
    if FileExists(s_modele) then
    begin
      OOoTools.OpenOffice := Instance;
      { OpenOffice gère les chemins de fichier sous la forme d'URL, il faut donc transformer les chemins de type c:\rep\toto.pas en file:///rep/toto.pas }
      NouveauClasseur := CreeDesktopOO(Instance).LoadComponentFromURL(pr+StringReplace(s_modele , '\', '/',[rfReplaceAll]),
                                  CS_BLANK, 0,
                                  VarArrayOf([MakePropertyValue('AsTemplate', True)]));
    end
    else
      Exception.CreateFmt('Le modèle de fichier %s n''existe pas.', [s_modele]);
  end;
end;
[/code]


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Nabaztag:tag, lapin communicant + mini-lapin RFID Nano:ztag
Entre 129€ et 130€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo pretty teenage girlPhoto going camping

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,187 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.