Q&A

  • WORD 97에 있는 그림을 Image 콤포넌트에 복사하려면?
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 문서에 들어 있어 꼭 이 기능이 필요합니다.

방법을 알고 계신 고수님의 답변을 부탁드립니다.

2  COMMENTS
  • Profile
    정영훈 2000.11.08 11:05


    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 문서에 들어 있어 꼭 이 기능이 필요합니다.

    > 방법을 알고 계신 고수님의 답변을 부탁드립니다.

  • Profile
    컴맹 2000.11.08 23:14
    이렇게 하면 되지 않을까염..



    image1.picture.Graphic := TBitmap.Create;

    image1.picture.Graphi.Assign(clipboard);



    도움이 되셨으면 하네염..

    그럼 즐코딩하세여..



    정영훈 wrote:

    >

    > 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 문서에 들어 있어 꼭 이 기능이 필요합니다.

    > > 방법을 알고 계신 고수님의 답변을 부탁드립니다.