Microsoft Word 97 에 있는 그림들을 복사, 붙여넣기를 통해서 Image 콤포넌트에 넣으려고 합니다. Word 그림을 복사하기 하고 다음과 같은 클립보드의 paste 기능을 이용해 봤는데 아무런 반응이 없습니다.
procedure TForm1.PasteButtonClick(Sender: TObject);
var
Bitmap: TBitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
begin
Bitmap := TBitmap.Create;
try
Bitmap.Assign(Clipboard);
Image.Canvas.Draw(0, 0, Bitmap);
finally
Bitmap.Free;
end;
end;
end;
Word 97 의 복사하기는 클립보드로 안들어 가나요? 아니면 클립보드에 있기는 한데 Delphi Image 콤포넌트에서 불러올 수 없나요?
많은 양의 그림들이 Word 문서에 들어 있어 꼭 이 기능이 필요합니다.
방법을 알고 계신 고수님의 답변을 부탁드립니다.
uses
ClipBrd
Image1.Picture.Assign(ClipBoard);
이렇게~
그럼 좋은하루되세요.
김승형 wrote:
> Microsoft Word 97 에 있는 그림들을 복사, 붙여넣기를 통해서 Image 콤포넌트에 넣으려고 합니다. Word 그림을 복사하기 하고 다음과 같은 클립보드의 paste 기능을 이용해 봤는데 아무런 반응이 없습니다.
>
> procedure TForm1.PasteButtonClick(Sender: TObject);
> var
> Bitmap: TBitmap;
> begin
> if Clipboard.HasFormat(CF_BITMAP) then
> begin
> Bitmap := TBitmap.Create;
> try
> Bitmap.Assign(Clipboard);
> Image.Canvas.Draw(0, 0, Bitmap);
> finally
> Bitmap.Free;
> end;
> end;
> end;
>
> Word 97 의 복사하기는 클립보드로 안들어 가나요? 아니면 클립보드에 있기는 한데 Delphi Image 콤포넌트에서 불러올 수 없나요?
>
> 많은 양의 그림들이 Word 문서에 들어 있어 꼭 이 기능이 필요합니다.
> 방법을 알고 계신 고수님의 답변을 부탁드립니다.