[ZaaaK]

есть Word документ...тырю из него всю инфру,копируя через буфер

Код:

procedure TForm7.Button1Click(Sender: TObject);
 var COM_Word: variant;
    DocName, TxtName, EditFile: string;
    bmp:TBitmap;
begin
  try
  if OpenDialog1.Execute then EditFile := Form7.OpenDialog1.FileName;
  try
    COM_Word := CreateOLEObject('Word.Application');
    COM_Word.Visible := False;
    DocName := {ExtractFilePath(Application.ExeName) +} EditFile;
    COM_Word.Documents.Open(DocName);
    Com_Word.ActiveDocument.Select;
    COM_Word.Selection.Copy;
    RichEdit1.PasteFromClipboard;
    COM_Word.DisplayAlerts := False;
    COM_Word.Quit;
   finally
    COM_Word := UnAssigned;
  end;
   except
   end;
end;

а еще в этом документе картинки лежат, а RichEdit их не умеет смотреть...слышал что-то вроде что можно каждую картинку в динамический Image втыкать...но как картинки собственно можно из буфера умыкнуть? для меня это остается огромной тайной

[NumLock]

перед нажатием кнопки Button1 нажми PrintScreen

PHP код:

unit Unit1;

interface

uses
  Clipbrd,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BITMAP, Clipboard.GetAsHandle(CF_BITMAP), 0);
  finally
    Clipboard.Close;
  end;
end;

end. 


[ZaaaK]

ну это типо одна картинка отскриненная из буфера и мы знаем что там больше ничего нету, а как цикл организовать чтоб ВСЕ картинки из буфера? там какой-то маркер конца буфера должен же быть по-идее....

[NumLock]

я даже не могу представить как несколько картинок может быть в буфере обмена. это ж что получается, когда я в paint'е нажимаю ctrl+v, то у меня должно вставиться несколько картинок?
хотя, да, работает, интересно. только в паинт вставляется одна картинка, которая как бы состоит из нескольких, но одна

[ZaaaK]

не можешь представить несколько картинок в буфере?лол... я ясно написал что копирую все из документа вотдовского,там МНОГО картинок...как их разбить...кстати Paint вроде берет и всю тягомутину из Word-а в рисунок делает о_О