Aide avec l'ouverture des documents OLE (Word, Excel, pdf etc)

Version imprimable

18/09/2009, 07h55
lordrt

Aide avec l'ouverture des documents OLE (Word, Excel, pdf etc)

Bonjour à tous,
mon français n'est pas trop parfait mais je vais essayer de résumé mon problem:

J'ai des documents OLE (e.g. Word, Excel), qui s'ouvrent à travers mon app en Delphi, mais le seul problem que je rencontre c'est si j'ai ouvert un doc en MS Word et que j'ai changé la fenêtre en mode 'custom', tous les autres doc qui s'ouvrent après sont dans ce mode, alors que je voulais que mem si un doc a été ouvert en fenêtre custom, les autres doivent obligatoirement ouvrir en plein ecran, est-ce qu'il y a un code qui permet de forcer MS Word (ou autres, e.g. Acrobabt reader) à ouvrir en plein ecran depuis Delphi?
18/09/2009, 22h53
Just-Soft

Salut et bienvenue
rien ne vaut plus que de voir ton code.

re-salut a tous
voici les codes les plus important concernant l'ouverture des docs, c'est plutot pour la partie 'modifier doc' que s'ouvrent les Word, Excel etc, car les docs sont ensuite stokés dans ma base de données. J'ai 2 'frames' en Delphi, TFRDocument et TFROleDocument, et même si on clique sur le document dans TFRDocument, le code va ouvrir l'autre frame TFROleDocument pour l'excution
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TFRDocument.MNDocumentModifyClick(Sender: TObject); begin {simulate a double click, to fetch the doc} if GDDocument.Visible then DefaultViewDoubleClick; if TLDocumentList.Visible then TLDocumentListDblClick(TLDocumentList); if GDDocumentReceivedDocs.Visible then GDDocumentReceivedDocsDblClick(GDDocumentReceivedDocs); {simulate an edit to open the doc} TFROleDocument(PCDocument.ActivePage.Controls[0]).MNOleDocumentEditClick(TFROleDocument(PCDocument.ActivePage.Controls[0]).MNOleDocumentEdit); end;
Code:

1 2 3 4 5 6 7 8 procedure TFROleDocument.MNOleDocumentViewOpenClick(Sender: TObject); begin {open document, but not allowed to save} if Assigned(OCOleDocumentContainer.OleObjectInterface) then OCOleDocumentContainer.DoVerb(ovShow); OCOleDocumentContainer.BringToFront; end;
J'ai seulement besoin d'une ligne de code qui permet l'ouverture en plein ecran de MS Word, Acrobat etc. Peut être une propriété dans le OleContainer OCOleDocumentCOntainer?

25/09/2009, 09h09
lordrt

Salut à tous
Est-ce que quelqu'un pourra m'aider à trouver des liens/tutoriels concernant OleContainer pour delphi, les propriétés associés au olecontainer etc? J'ai cherché sur google mais sans résultats valables.
:ccool:

salut

pour mettre en pleine ecrain en dehors de la zone ole

Code:

1
2
3
4
5
6
7
8
 
  Ole.close;
  Ole.AutoVerbMenu := true;
  Ole.AllowActiveDoc:=false;
  Ole.AllowInPlace:=false;
  Ole.DoVerb(ovShow);
  Ole.Visible := true;
  Ole.DoVerb(ovPrimary);

pour la mettre dans la zone ole

Code:

1
2
3
4
5
6
7
 
        Ole.Visible := True;
        Ole.AutoVerbMenu := false;
        Ole.AllowActiveDoc:=true;
        Ole.AllowInPlace:=true;
        Ole.CreateObjectFromFile(Fichier,False);
        Ole.Visible := True;

@+ Phil

25/09/2009, 12h50
lordrt

merci anapurna, je vais essayer ces codes

Salut;
voici comment créer un nouveau message dans MSOutlook en utilisant OLE.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
const olMailItem = 0;
var
  Outlook: OLEVariant;
  MailItem: Variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
 
  MailItem := Outlook.CreateItem(olMailItem);
  MailItem.Recipients.Add('kelloucheaeh@yahoo.fr');
  MailItem.Subject := 'Hello !';
  MailItem.Body := 'Bienvenue sur : http://www.Developpez.com';
  MailItem.Attachments.Add('C:\Windows\Win.ini'); // ce n'est qu'un exemple
  MailItem.Send;
 
  Oulook := Unassigned;
end;

Citation:
Envoyé par Just-Soft
Salut;
voici comment créer un nouveau message dans MSOutlook en utilisant OLE.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const olMailItem = 0; var Outlook: OLEVariant; MailItem: Variant; begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; MailItem := Outlook.CreateItem(olMailItem); MailItem.Recipients.Add('kelloucheaeh@yahoo.fr'); MailItem.Subject := 'Hello !'; MailItem.Body := 'Bienvenue sur : http://www.Developpez.com'; MailItem.Attachments.Add('C:\Windows\Win.ini'); // ce n'est qu'un exemple MailItem.Send; Oulook := Unassigned; end;
Merci pour le code, mais moi j'ai seulement besoin d'ouvrir les OleContainer en plein ecran si je clique sur un doc ;) et jusqu'à maintenant je suis encore en train de faire des recherches pour ce probleme.

28/09/2009, 16h26
alheuredudejeuner

DBOLEContainer

bonjour

Juste pour info, BigGrizzly a developpé un composant gratuit dédié pour charger et utiliser un document OLE dans une base de données, le GZFBDBOLEContainer que vous pouvez télécharger à cette adresse :
ftp://www.zoo-logique.org/delphi/

J'utilise cet objet depuis de nombreuses années.

André
29/09/2009, 07h16
lordrt

Citation:

Envoyé par alheuredudejeuner

bonjour

Juste pour info, BigGrizzly a developpé un composant gratuit dédié pour charger et utiliser un document OLE dans une base de données, le GZFBDBOLEContainer que vous pouvez télécharger à cette adresse :
ftp://www.zoo-logique.org/delphi/

J'utilise cet objet depuis de nombreuses années.

André

Merci pour l'info et le lien :ccool: