|
<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++을 잘 몰라서요..
위의 소스가 맞는지 좀 봐 주실수 있으신가요?
그럼 부탁드립니다.
|