Discussion :

[lordrt]

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?

[Just-Soft]

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

[lordrt]

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 :

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

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 :

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

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?

[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.

[anapurna]

salut


pour mettre en pleine ecrain en dehors de la zone ole

Code :

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

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 :

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

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

[lordrt]

merci anapurna, je vais essayer ces codes

[Just-Soft]

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

Code :

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

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;

[lordrt]

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

Code :

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

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.

[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é

[lordrt]

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