Copie d'un champ blob dans Word

Version imprimable

Bonjour,

Je voudrais copier le contenu d'un champ blob d'une base de données dans un fichier word. Le contenu du champ provient d'un éditeur
Le code suivant fonctionne très bien avec du texte, par contre le fonctionne plus dès qu'il y a une image
Code:

1 2 3 4 5 6 lClipBoard := Clipboard(); FormatRTF := RegisterClipboardFormat('Rich Text Format'); lClipboard.hasformat(FormatRTF); CopyToClipboard(lClipBoard, <contenu du champ>, FormatRTF); <copie dans word>
Merci de votre aide

J'oubliais un bout

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
procedure TFRMComponent.CopyToClipboard(var LClipboard : TClipboard; Text : string; CFormat : word);
var
  MemHandle: THandle;
  rtfstring: PChar;
begin
  with LClipboard do
  begin
    rtfstring := PChar(text);
    MemHandle := GlobalAlloc(GHND or GMEM_SHARE, StrLen(rtfstring) + 1);
    if MemHandle <> 0 then
    begin
      StrCopy(GlobalLock(MemHandle), rtfstring);
      GlobalUnlock(MemHandle);
      Open;
      try
        AsText := '1244444';
        SetAsHandle(CFormat, MemHandle);
      finally
        Close;
      end;
    end
    else
      MessageDlg('Global Alloc failed!',
        mtError, [mbOK], 0);
  end;
end;

12/01/2007, 20h19
Jipété
'Soir,

moi y a ça qui m'intrigue :
Citation:
Code:

1 2 try AsText := '1244444';
parce que l'aide Delphi dit :

Citation:

La propriété AsText permet d'introduire un texte dans le presse-papiers et de l'en extraire

Faudrait p'têt' chercher du côté de la propriété "Formats"...

Et que donne la copie du presse-papiers à la mano dans Word, une fois que ton prog a tourné ?

Mes 2 cts,
--
jp

bon j'ai trouve.

Déjà pour répondre à ta question Astext c'est pour mes tests.
Le code fonctionne avec du texte simple, par contre dans certain cas, j'ai des images et là ca ne marche plus (pb format du presse-papier).

La solution trouvée est de passer par un stream, je mets le contenu de mon champs dans un stream, et ensuite copie du stream dans le presse papier

Ci dessous le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TFRMComponent.CopyStreamToClipboard(Cformat: word; S: TStream);
var
  hMem: THandle;
  pMem: Pointer;
begin
  Assert(Assigned(S));
  S.Position := 0;
  hMem := GlobalAlloc(GHND or GMEM_DDESHARE, S.Size);
  if hMem <> 0 then 
  begin
    pMem := GlobalLock(hMem);
    if pMem <> nil then 
    begin
      try
        S.Read(pMem^, S.Size);
        S.Position := 0;
      finally
        GlobalUnlock(hMem);
      end;
      Clipboard.Open;
      try
        Clipboard.SetAsHandle(Cformat, hMem);
      finally
        Clipboard.Close;
      end;
    end { If }
    else 
    begin
      GlobalFree(hMem);
      OutOfMemoryError;
    end;
  end { If }
  else
    OutOfMemoryError;
end; { CopyStreamToClipboard }