IndyHTTP부분은 pas에서 가져와서 변환해서 하니까
되네요 ㅎㅎ 정말 감사합니다~~


장성호 님이 쓰신 글 :
: C++Builder에서  xxx.pas 파일을 프로젝트에 포함시켜서 사용하는것이 가능하지만
:
: 아래와 같이 외부 Dll을  pas에서 extern 해놓은경우에는 link에 문제가 있는것 같네요
: (정확하게는 잘 모름)
:
:
: 음...
:
: 해결방법은
:    1. 아래 pas 함수를 모두 C++Builder로 변환해서 사용합니다.
:         pascal에 익숙하지 않으면 시간이 좀 걸릴것 같구..
:
:   2. VC++용   h,cpp 파일을  C++Builder용으로 변환해서 씁니다.
:       이방법 간단히 해봤는데 금방 되네요
:
:       2.1  h/cpp 초반에 있는 #define문은 모두 삭제하고 , c++Builder-스타일로 변경
:       2.2  몇가지 타입 변경
:              AfxMessageBox  -> ShowMessage
:              CString                -> String
:              CWnd *               -> HWND
:              Format                 -> sprintf
:              m_pParent->PostMessage(WM_CLOSE);        ->  PostMessage(m_pParent,WM_CLOSE,0,0);
:  
:      2.3  http프로토콜로 서버에서 쿼리하는 함수( bool CPBCon::GetServerValue(String& theUrl))를
:             IndyHttp로 변경
:
: 
:      위와같이 변경하고 C++BUilder프로젝트에 포함해서 컴파일하니 link에러가 없네요
:
:       link에러가 없을수 밖에 없는것이
:       VC++예제는 직접 loadlibrary하여 GetProcAddress로 함수address를 찾아서 호출하고 있네요
:
: 그럼..
:    
: 초보 님이 쓰신 글 :
: : 안녕하세요
: :
: : 프로그램베이에서 프로그램 등록용 dll 및 소스 파일을 제공하고 있는데
: : 델파일7과 vc, vb용밖에 없습니다. 그래서
: : 프로젝트에 upbcon.pas를 추가한 다음 컴파일을 하면 Unresolved external '_PBLogin@8' referenced from ...\upbcon.obj 등의 오류가 발생합니다.
: : (해당 자료는 여기 있습니다 : http://www.programbay.co.kr/upload/module/manual.zip)
: :
: : upbcon.pas 소스는 다음과 같습니다
: :
: : unit Upbcon;
: :
: : interface
: :
: : uses
: :   Windows, Messages, IdHTTP, ExtCtrls;
: :
: : type
: :   my_Timer = class(TTimer)
: :     //pb_Timer : TTimer;
: :   private
: :     procedure pbcon_Timer(Sender: TObject);
: : end;
: :
: : function PbLogin(progid, title : pchar): Boolean;                          stdcall; external 'pbcon.dll' name '_PbLogin@8';
: : function PbAutoLogin(progid, title : pchar; autologin : Integer): Boolean; stdcall; external 'pbcon.dll' name '_PbLogin_AutoLogin@12';
: : function closeCB(func : Pointer) : Integer;                                stdcall; external 'pbcon.dll' name '_CloseCB@4';
: : function UnloadDLL: Integer;                                               stdcall; external 'pbcon.dll' name 'Dll_Unload';
: : function GetLoginID(id : Pointer): Integer;                                stdcall; external 'pbcon.dll' name '_GetLoginID@4';
: : function isFreeUser: Integer;                                              stdcall; external 'pbcon.dll' name 'isFreeUser';
: : function isAutoLogin: Integer;                                             stdcall; external 'pbcon.dll' name 'isAutoLogin';
: : function SetAutoLogin(val : Integer) :  Integer;                           stdcall; external 'pbcon.dll' name '_SetAutoLogin@4';
: : function GetEncCode(pdec : PChar; penc : Pointer): Integer;                stdcall; external 'pbcon.dll' name '_GetENCCode@8';
: : function GetOption(opt : Pointer): Integer;                                stdcall; external 'pbcon.dll' name '_GetOption@4';
: :
: : function pbcon_Login (progid, title: pchar; autologin: Integer): Boolean;
: : function pbcon_GetLoginID() : string;
: : function pbcon_isFreeUser() : Integer;
: : function pbcon_isAutoLogin() : Integer;
: : function pbcon_SetAutoLogin(val : Integer) : Integer;
: : function pbcon_GetEncCode(pdec : string) : string;
: : function pbcon_RndString: String;
: : function pbcon_CheckAuth(var pDec: string; var pEnc: string): Boolean;
: : function pbcon_GetOption() : string;
: :
: : procedure pbcon_SetMainWnd(pHandle : Hwnd);
: : procedure pbcon_ProjectEnd();
: : procedure pbcon_Init();
: : procedure pbcon_Unload();
: : procedure KillProcess(hWindowHandle: HWND);
: : //procedure pbcon_Timer(Sender: TObject);
: :
: : var
: :   pb_MainFormHwnd : Hwnd;
: :   pb_isUnloadfromDLL : Boolean;
: :   pb_MsgAutoLogin : array[0..3] of string;
: :   pb_MsgIsAutoLogin : array[0..1] of string;
: :   pb_MsgIsFreeUser : array[0..1] of string;
: :   pb_Timer : my_Timer;
: :
: : implementation
: :
: : procedure pbcon_Init();
: : begin
: :   pb_MsgAutoLogin[0] := '자동로그인 설정을 변경했습니다.';
: :   pb_MsgAutoLogin[1] := '로그인시 비밀번호를 저장하지 않으면 자동로그인의 설정을 변경할 수 없습니다.';
: :   pb_MsgAutoLogin[2] := '접속모듈을 추가할때 자동로그인 기능을 사용하도록 설정하셔야 합니다. (메뉴얼참고)';
: :   pb_MsgAutoLogin[3] := '알수없는 오류로 자동로그인 설정에 실패했습니다.';
: :
: :   pb_MsgIsAutoLogin[0] := '자동로그인 사용';
: :   pb_MsgIsAutoLogin[1] := '자동로그인 비사용';
: :
: :   pb_MsgIsFreeUser[0] := '정식 사용자';
: :   pb_MsgIsFreeUser[1] := '체험판 사용자';
: : end;
: :
: : function pbcon_Login(progid, title: pchar; autologin: Integer): Boolean;
: : var
: :   bResult1, bResult2 : Boolean;
: :   lpDec, lpEnc : string;
: :
: : begin
: :   pbcon_Init();
: :   pb_isUnloadfromDLL := False;
: :   if autologin = 0 then
: :     bResult1 := PbLogin(progid, title)
: :   else
: :     bResult1 := PbAutoLogin(progid, title, 1);
: :
: :   bResult2 := False;
: :   if bResult1 then
: :   begin
: :     lpDec := PChar(pbcon_RndString);
: :     lpEnc := pbcon_GetEncCode(lpDec);
: :     bResult2 := pbcon_CheckAuth(lpDec, lpEnc);
: :   end;
: :   if bResult1 and bResult2 then
: :     closeCB(@pbcon_ProjectEnd);
: :   Result := bResult1 and bResult2;
: : end;
: :
: : procedure pbcon_SetMainWnd(pHandle : Hwnd);
: : begin
: :   pb_MainFormHwnd := pHandle;
: : end;
: :
: : procedure pbcon_ProjectEnd();
: : begin
: :   pb_isUnloadfromDLL := True;
: :  
: :   pb_Timer := my_Timer.Create( nil );
: :   pb_Timer.OnTimer := pb_Timer.pbcon_Timer;
: :   pb_Timer.Enabled := False;
: :   pb_Timer.Interval := 1000;
: :   pb_Timer.Enabled := True;
: :
: : end;
: :
: : function pbcon_GetLoginID() : string;
: : var
: :     loginID : string;
: :     bid : array[0..24] of char;
: : begin
: :     GetLoginID(@bid[0]);
: :     loginID := bid;
: :     Result := loginID;
: : end;
: :
: : function pbcon_isFreeUser() : Integer;
: : begin
: :      Result := isFreeUser;
: : end;
: :
: : function pbcon_isAutoLogin() : Integer;
: : begin
: :     Result := isAutoLogin;
: : end;
: :
: : function pbcon_GetOption() : string;
: : var
: :     lpOpt : string;
: :     bopt : array[0..24] of char;
: : begin
: :     GetOption(@bopt[0]);
: :     lpOpt := bopt;
: :     Result := lpOpt;
: : end;
: :
: : function pbcon_SetAutoLogin(val : Integer) : Integer;
: : begin
: :     Result := SetAutoLogin(val);
: : end;
: :
: : function pbcon_GetEncCode(pdec : string) : string;
: : var
: :    benc : array[0..2000] of char;
: : begin
: :    GetEncCode(PChar(pDec), @benc[0]);
: :    Result := benc;
: :
: : end;
: :
: : function pbcon_RndString: String;
: :   function RndChar: Char;
: :   begin
: :     Result := Char(  Random(Ord('Z') -  Ord('A') + 1) + Ord('A') );
: :   end;
: : var
: :   i : Integer;
: : begin
: :   Result := '';
: :   for i:=0 to Random(5)+5 do
: :     Result := Result + RndChar
: : end;
: :
: : function pbcon_CheckAuth(var pDec: string; var pEnc: string): Boolean;
: : var
: :   txt : string;
: :   IdHTTP1 : TIdHTTP;
: :   lpURL : string;
: :   lpResult : Boolean;
: :
: : begin
: :   Result := False;
: :   try
: :     IdHTTP1 := TIdHTTP.Create(nil);
: :     try
: :       lpURL := 'http://121.125.71.199/Auth/AuthQuery.pb';
: :       lpURL := lpURL + '?dec=' + pDec;
: :       lpURL := lpURL + '&enc=' + pEnc;
: :       IdHTTP1.Port := 80;
: :       txt := IdHTTP1.Get(lpURL);
: :
: :       if txt = 'True' then
: :         lpResult := True
: :       else
: :         lpResult := False
: :     finally
: :       IdHTTP1.Free;
: :     end;
: :
: :     Result := lpResult;
: :   except
: :     Exit;
: :   end;
: : end;
: :
: : procedure pbcon_Unload();
: : begin
: :   if pb_isUnloadfromDLL = False then
: :     UnloadDLL();
: : end;
: :
: : procedure KillProcess(hWindowHandle: HWND);
: : var
: :   hprocessID: INTEGER;
: :   processHandle: THandle;
: :   DWResult: DWORD;
: : begin
: :   SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,
: :     SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
: :   if isWindow(hWindowHandle) then
: :   begin
: :     // PostMessage(hWindowHandle, WM_QUIT, 0, 0);
: :     { Get the process identifier for the window}
: :     GetWindowThreadProcessID(hWindowHandle, @hprocessID);
: :     if hprocessID <> 0 then
: :     begin
: :       { Get the process handle }
: :       processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,
: :         False, hprocessID);
: :       if processHandle <> 0 then
: :       begin
: :         { Terminate the process }
: :         TerminateProcess(processHandle, 0);
: :         CloseHandle(ProcessHandle);
: :       end;
: :     end;
: :   end;
: : end;
: :
: : procedure my_Timer.pbcon_Timer(Sender: TObject);
: : begin
: :   pb_Timer.Enabled := False;
: :   PostMessage(pb_MainFormHwnd, WM_QUIT, 0, 0);
: : end;
: :
: : end.
: :
: :
: : 여기서
: : function PbLogin(progid, title : pchar): Boolean;                          stdcall; external 'pbcon.dll' name '_PbLogin@8';
: : function PbAutoLogin(progid, title : pchar; autologin : Integer): Boolean; stdcall; external 'pbcon.dll' name '_PbLogin_AutoLogin@12';
: : function closeCB(func : Pointer) : Integer;                                stdcall; external 'pbcon.dll' name '_CloseCB@4';
: : function UnloadDLL: Integer;                                               stdcall; external 'pbcon.dll' name 'Dll_Unload';
: : function GetLoginID(id : Pointer): Integer;                                stdcall; external 'pbcon.dll' name '_GetLoginID@4';
: : function isFreeUser: Integer;                                              stdcall; external 'pbcon.dll' name 'isFreeUser';
: : function isAutoLogin: Integer;                                             stdcall; external 'pbcon.dll' name 'isAutoLogin';
: : function SetAutoLogin(val : Integer) :  Integer;                           stdcall; external 'pbcon.dll' name '_SetAutoLogin@4';
: : function GetEncCode(pdec : PChar; penc : Pointer): Integer;                stdcall; external 'pbcon.dll' name '_GetENCCode@8';
: : function GetOption(opt : Pointer): Integer;                                stdcall; external 'pbcon.dll' name '_GetOption@4';
: :
: : 이 부분에서 오류가 발생하는 것 같습니다 그래서
: : implib pbcon.lib pbcon.dll을 통해 lib를 만들어 라이브러리를 추가한 후 해봐도 마찬가지입니다..
: : stdcall을 cdecl 등으로 바꿔도 마찬가지구요..
: : dll 파일 또한 라이브러리 및 include 경로에 모두 포함되어 있습니다.
: :
: : 어떻게 해결해야 하나요? 고수님들 도와주시면 감사하겠습니다 ㅠ