C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[58738] Re:델파이 -> c++ 변환 중입니다. 검토 부탁드립니다.
이길남.HoPe [miru0418] 935 읽음    2009-10-09 18:45
 	frmResult->Memo1->Lines.Add("########## DLL Manager Start ##########");
        AnsiString sFile = ExtractFilePath(Application->ExeName) + "Dll\\DLLManager.dll";

        if(FileExist(sFile))
        {
                hDLLManager := LoadLibrary( pChar(sFile) );
                if( hDLLManager < 32 )
                {
                        frmResult->Memo1->Lines->Add(" 통신 Dll Manager 로딩 실패!! ");
                        frmResult->Memo1->Lines->Add(" 프로그램을 다시 인스톨하십시오.");
                }
                else
                {
                        frmResult->Memo1->Lines->Add(" 통신 Dll Manager 로딩 성공!! ");
                        frmResult->Memo1->Lines->Add("");
                        frmResult->Memo1->Lines->Add("");
                }
        }
        else
        {
                frmResult->Memo1->Lines->Add(" DLL이 없습니다 ");
                frmResult->Memo1->Lines->Add(" 프로그램을 다시 인스톨하십시오.");
        }


참고로,
    1. C++은 정적 생성만 [.]을 사용하고 동적 생성은 [->]을 사용합니다. (델파이는 모두 [.]으로 표현합니다.)
    2. C++은 문자열 표현 방식이 [" 문자열 "]으로 표현됩니다. 문자만 ['C']로 표현됩니다. (델파이는 모두 ['']로 표현합니다.)

그럼 이만 즐거운 하루되십시요.



용찬 님이 쓰신 글 :
: <delphi>
: ================================================================================
: procedure TForm1.btn_DLLManagerLoadClick(Sender: TObject);
: var
:   sFile : string;
: begin
:   frmResult.Memo1.Lines.Add('########## DLL Manager Start ##########');
:   sFile := ExtractFilePath(Application.ExeName)+'Dll\' + 'DLLManager.dll';
: //  sFile := ExtractFilePath(Application.ExeName)+'Dll\' + 'pKmpComm.dll';
:   if FileExists(sFile) then
:   begin
:     hDLLManager := LoadLibrary( pChar(sFile) );
:     if ( hDLLManager < 32 ) then
:     begin
:       frmResult.Memo1.Lines.Add(' 통신 Dll Manager 로딩 실패!! ');
:       frmResult.Memo1.Lines.Add(' 프로그램을 다시 인스톨하십시오.' );
:     end
:     else
:     begin
:       frmResult.Memo1.Lines.Add(' 통신 Dll Manager 로딩 성공!! ');
:       frmResult.Memo1.Lines.Add('');
:       frmResult.Memo1.Lines.Add('');
:
:
:     end;
:   end
:   else
:   begin
:     frmResult.Memo1.Lines.Add(' DLL이 없습니다 ');
:     frmResult.Memo1.Lines.Add(' 프로그램을 다시 인스톨하십시오.' );
:   end;
:
: end;
: ================================================================================
:
:
:
: <c++>
: ================================================================================
: void __fastcall TForm1::btn_DLLManagerLoadClick(TObject *Sender)
: {
:     String *sFile;
:    
:     frmResult->Memo1->Lines.Add('########## DLL Manager Start ##########');
:    
:     if (FileExists(sFile))
:     {
:         hDLLManager = LoadLibrary( pChar(sFile) );
:        
:         if ( hDLLManager < 32 )
:         {
:             frmResult->Memo1->Lines->Add(' 통신 Dll Manager 로딩 실패!! ');
:             frmResult->Memo1->Lines->Add(' 프로그램을 다시 인스톨하십시오.' );       
:         }   
:         else
:         {
:             frmResult->Memo1->Lines->Add(' 통신 Dll Manager 로딩 성공!! ');   
:             frmResult->Memo1->Lines->Add('');
:             frmResult->Memo1->Lines->Add('');       
:         }
:     }
:     else
:     {
:     frmResult->Memo1->Lines->Add(' DLL이 없습니다 ');
:     frmResult->Memo1->Lines->Add(' 프로그램을 다시 인스톨하십시오.' );
:     }
: }
: ================================================================================
:
: 델파이  소스를 c++ 로 바꾸고 있습니다.
: 제가 c++을  잘 몰라서요..
: 위의 소스가 맞는지 좀 봐 주실수 있으신가요?
:
: 그럼 부탁드립니다.

+ -

관련 글 리스트
58737 델파이 -> c++ 변환 중입니다. 검토 부탁드립니다. 용찬 898 2009/10/09
58738     Re:델파이 -> c++ 변환 중입니다. 검토 부탁드립니다. 이길남.HoPe 935 2009/10/09
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.