아래 델파이 소스를 빌더로 변환하고자 합니다. 델파이로 컴파일하여 테스트 결과 에러 없이 동작 하네요.

소스에 첨부된 부분들부터 막히니..애구 대책없어라..

이 문제를 푸는 가장 좋은 순서(희망)대로 적자면

1. 빌더로 변환한다. (빌더에서 코딩된 루틴이 많아서 이 코딩 때문에 델파이로 갈수가 없어요.)

2. 변환이 안된다면 아래 델파이코드(Unit 으로?) 자체를 빌더 프로젝트에 포함할수 있는 방법

  이 있는가 ( 예전에 Gif 애니메이션 되는 컴포넌트(?) 의 경우 AAA.Pas 를 빌더의 프로젝트

  에 추가 하여 사용했던 기억이 있네요.)

3. 이도 저도 아니면 A(빌더) 프로그램(Exe)에서 B(아래 코드의 델파이)프로그램(Exe)을 내포하여

   실행 할수 있는가 ( 웹 브라우저에서 워드 문서 등이 보이듯이)

   이를 위해서 A, B 프로그램 각자가 준비해야 할 것이 있는가.

   준비된 프로그램이 가능하다면, A 를 VC++ 에서 만들고, B는 빌더(또는 델파이)에서 만들었을

   경우에도 똑같이 내포하여 실행할수 있는가.

   실마리가 될수 있는 조언이라도 부탁드립니다.

   ---- 델파이 코드 ---------

   // 웹브라우저(TCppWebBrower)의 내용을 Jpeg 파일로 변환하는 프로그램입니다.

procedure TForm1.Button4Click(Sender: TObject);
var
  IDoc1: IHTMLDocument2;
  Web: ShDocVW.IWebBrowser2;
  tmpX, tmpY: Integer;
  compress : Integer;
begin
  with WebBrowser1 do
  begin
    Document.QueryInterface(IHTMLDocument2, iDoc1); // 빌더에서 IDoc1 얻기도 실패.
    Web := ControlInterface;
    tmpX := Height;
    tmpY := Width;
    TControl(WebBrowser1).Visible := Boolean(0);

    // 브라우저에 출력된 데이터의 높이 픽셀. 이 부분도 빌더로 실패.ㅠ.ㅠ
    Height := Webbrowser1.OleObject.Document.Body.ScrollHeight;
    // 역시 실패.
    Width := Webbrowser1.OleObject.Document.Body.ScrollWidth;

    generateJPEGfromBrowser(Web,'c:\test.jpg',Height, Width, Height, Width);

    Height := tmpX;
    Width := tmpY;
    TControl(WebBrowser1).Visible := Boolean(1);

    Image1.Picture.LoadFromFile('c:\test.jpg');

  end;
end;


procedure generateJPEGfromBrowser(browser: iWebBrowser2; jpegFQFilename: string;
  srcHeight: Integer; srcWidth: Integer; tarHeight: Integer; tarWidth: Integer);
var
  sourceDrawRect: TRect;
  targetDrawRect: TRect;
  sourceBitmap: TBitmap;
  targetBitmap: TBitmap;
  jpeg: TJPEGImage;
  viewObject: IViewObject;
begin
  sourceBitmap := TBitmap.Create;
  targetBitmap := TBitmap.Create;
  jpeg := TJPEGImage.Create;
  try
    try
      sourceDrawRect := Rect(0, 0, srcWidth, srcHeight);
      sourceBitmap.Width  := srcWidth;
      sourceBitmap.Height := srcHeight;

      viewObject := browser as IViewObject;

      if viewObject = nil then
        Exit;

      OleCheck(viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Form1.Handle,
        sourceBitmap.Canvas.Handle, @sourceDrawRect, nil, nil, 0));

      // Resize the src bitmap to the target bitmap
      targetDrawRect := Rect(0, 0, tarWidth, tarHeight);
      targetBitmap.Height := tarHeight;
      targetBitmap.Width  := tarWidth;
      targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap);

      // Create a JPEG from the Bitmap and save it
      jpeg.Assign(targetBitmap);

      jpeg.SaveToFile(jpegFQFilename);
    finally
      jpeg.Free;
      sourceBitmap.Free;
      targetBitmap.Free;
    end;
  except
    // Error Code
  end;
end;