QT SDK는 MinGW로 빌드되어서 배포하고있고
QT Creator는 MSVC 2008로 빌드되어 배포하고있어
위젯을 만들어 디자이너에 추가할때 Creator에서 제대로 불러올수없음.
http://www.qtforum.org/article/34938/compile-qtcreator-with-mingw.html
참고하여 QT Creator를 MinGW로 빌드하면 해결.
# by | 2011/05/17 11:59 | 트랙백 | 덧글(0)
최신 DirectX 9.0 SDK 나
Windows SDK를 받아봐도 multivmr 샘플소스를 찾을수가없다.
vmr9 multi renderless mode를 참조하고싶은데
샘플소스도없고 다른사람이 공개한 소스도없으니 앞이 깜깜!
Directx9 (Summer 2004)버젼을 다운받고
샘플소스만 설치하자. 이곳에 포함되어있다.
컴파일할때 에러몇개나는데 간단히 잡을수있는것들이다.
# by | 2010/05/11 19:50 | DirectShow | 트랙백 | 덧글(0)
구글링후 windows 7, windows server 2008 버젼확인하는 코드 추가
//-----------------
unit
GetWinVersionInfo;
interface
uses
Windows, Registry, SysUtils;
type
_OSVERSIONINFOEX = record
dwOSVersionInfoSize : DWORD;
dwMajorVersion : DWORD;
dwMinorVersion : DWORD;
dwBuildNumber : DWORD;
dwPlatformId : DWORD;
szCSDVersion : array[0..127] of AnsiChar;
wServicePackMajor : WORD;
wServicePackMinor : WORD;
wSuiteMask : WORD;
wProductType : BYTE;
wReserved : BYTE;
end;
TOSVERSIONINFOEX = _OSVERSIONINFOEX;
function GetVersionExA(var lpVersionInformation: TOSVersionInfoEX): BOOL;
stdcall; external kernel32;
const
VER_NT_WORKSTATION :Integer = 1;
VER_SUITE_ENTERPRISE :Integer = 2;
VER_NT_SERVER :Integer = 3;
VER_SUITE_DATACENTER :Integer = 128;
VER_SUITE_PERSONAL :Integer = 512;
const
PRODUCT_BUSINESS = $00000006; {Business Edition}
PRODUCT_BUSINESS_N = $00000010; {Business Edition}
PRODUCT_CLUSTER_SERVER = $00000012; {Cluster Server Edition}
PRODUCT_DATACENTER_SERVER = $00000008; {Server Datacenter Edition
(full installation)}
PRODUCT_DATACENTER_SERVER_CORE = $0000000C; {Server Datacenter Edition
(core installation)}
PRODUCT_ENTERPRISE = $00000004; {Enterprise Edition}
PRODUCT_ENTERPRISE_N = $0000001B; {Enterprise Edition}
PRODUCT_ENTERPRISE_SERVER = $0000000A; {Server Enterprise Edition
(full installation)}
PRODUCT_ENTERPRISE_SERVER_CORE = $0000000E; {Server Enterprise Edition
(core installation)}
PRODUCT_ENTERPRISE_SERVER_IA64 = $0000000F; {Server Enterprise Edition
for Itanium-based Systems}
PRODUCT_HOME_BASIC = $00000002; {Home Basic Edition}
PRODUCT_HOME_BASIC_N = $00000005; {Home Basic Edition}
PRODUCT_HOME_PREMIUM = $00000003; {Home Premium Edition}
PRODUCT_HOME_PREMIUM_N = $0000001A; {Home Premium Edition}
PRODUCT_HOME_SERVER = $00000013; {Home Server Edition}
PRODUCT_SERVER_FOR_SMALLBUSINESS = $00000018; {Server for Small Business
Edition}
PRODUCT_SMALLBUSINESS_SERVER = $00000009; {Small Business Server}
PRODUCT_SMALLBUSINESS_SERVER_PREMIUM = $00000019; {Small Business Server
Premium Edition}
PRODUCT_STANDARD_SERVER = $00000007; {Server Standard Edition
(full installation)}
PRODUCT_STANDARD_SERVER_CORE = $0000000D; {Server Standard Edition
(core installation)}
PRODUCT_STARTER = $0000000B; {Starter Edition}
PRODUCT_STORAGE_ENTERPRISE_SERVER = $00000017; {Storage Server Enterprise
Edition}
PRODUCT_STORAGE_EXPRESS_SERVER = $00000014; {Storage Server Express
Edition}
PRODUCT_STORAGE_STANDARD_SERVER = $00000015; {Storage Server Standard
Edition}
PRODUCT_STORAGE_WORKGROUP_SERVER = $00000016; {Storage Server Workgroup
Edition}
PRODUCT_UNDEFINED = $00000000; {An unknown product}
PRODUCT_ULTIMATE = $00000001; {Ultimate Edition}
PRODUCT_ULTIMATE_N = $0000001C; {Ultimate Edition}
PRODUCT_WEB_SERVER = $00000011; {Web Server Edition}
PRODUCT_UNLICENSED = $ABCDABCD; {Unlicensed product}
function GetOSInfo: string;
var
{$EXTERNALSYM GetProductInfo}
GetProductInfo: function (dwOSMajorVersion, dwOSMinorVersion,
dwSpMajorVersion, dwSpMinorVersion: DWORD;
var pdwReturnedProductType: DWORD): BOOL stdcall = NIL;
implementation
function GetOSInfo: string;
var
NTBres, BRes: Boolean;
OSVI: TOSVERSIONINFO;
OSVI_NT: TOSVERSIONINFOEX;
tmpStr: string;
dwOSMajorVersion, dwOSMinorVersion,
dwSpMajorVersion, dwSpMinorVersion,
pdwReturnedProductType : DWORD;
begin
Result := 'Error';
NTBRes := FALSE;
try
OSVI_NT.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFOEX);
NTBRes := GetVersionExA(OSVI_NT);
OSVI.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
BRes := GetVersionEx(OSVI);
except
OSVI.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
BRes := GetVersionEx(OSVI);
end;
if (not BRes) and (not NTBres) then
Exit;
Move( OSVI, OSVI_NT, SizeOf(TOSVersionInfo) );
case OSVI_NT.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if OSVI_NT.dwMajorVersion <= 4 then
Result := 'Windows NT ';
if (OSVI_NT.dwMajorVersion = 5) and (OSVI_NT.dwMinorVersion = 0) then
Result := 'Windows 2000 ';
if (OSVI_NT.dwMajorVersion = 5) and (OSVI_NT.dwMinorVersion = 1) then
Result := 'Windows XP ';
if (OSVI_NT.dwMajorVersion = 6) then
begin
if (OSVI_NT.dwMinorVersion = 0) then
begin
if OSVI_NT.wProductType = VER_NT_WORKSTATION then
Result := 'Windows Vista'
else
Result := 'Windows Server 2008';
end
else if OSVI_NT.dwMinorVersion = 1 then
begin
if OSVI_NT.wProductType = VER_NT_WORKSTATION then
Result := 'Windows 7'
else
Result := 'Windows Server 2008 R2'
end
else
Result := 'After Windows 7 Version. Not Supply this version';
if Assigned(GetProductInfo) then
begin
GetProductInfo( dwOSMajorVersion, dwOSMinorVersion,
dwSpMajorVersion, dwSpMinorVersion,
pdwReturnedProductType );
case pdwReturnedProductType of
PRODUCT_BUSINESS:
tmpStr := 'Business Edition';
PRODUCT_BUSINESS_N:
tmpStr := 'Business Edition';
PRODUCT_CLUSTER_SERVER:
tmpStr := 'Cluster Server Edition';
PRODUCT_DATACENTER_SERVER:
tmpStr := 'Server Datacenter Edition (full installation)';
PRODUCT_DATACENTER_SERVER_CORE:
tmpStr := 'Server Datacenter Edition (core installation)';
PRODUCT_ENTERPRISE:
tmpStr := 'Enterprise Edition';
PRODUCT_ENTERPRISE_N:
tmpStr := 'Enterprise Edition';
PRODUCT_ENTERPRISE_SERVER:
tmpStr := 'Server Enterprise Edition (full installation)';
PRODUCT_ENTERPRISE_SERVER_CORE:
tmpStr := 'Server Enterprise Edition (core installation)';
PRODUCT_ENTERPRISE_SERVER_IA64:
tmpStr := 'Server Enterprise Edition for Itanium-based Systems';
PRODUCT_HOME_BASIC:
tmpStr := 'Home Basic Edition';
PRODUCT_HOME_BASIC_N:
tmpStr := 'Home Basic Edition';
PRODUCT_HOME_PREMIUM:
tmpStr := 'Home Premium Edition';
PRODUCT_HOME_PREMIUM_N:
tmpStr := 'Home Premium Edition';
PRODUCT_HOME_SERVER:
tmpStr := 'Home Server Edition';
PRODUCT_SERVER_FOR_SMALLBUSINESS:
tmpStr := 'Server for Small Business Edition';
PRODUCT_SMALLBUSINESS_SERVER:
tmpStr := 'Small Business Server';
PRODUCT_SMALLBUSINESS_SERVER_PREMIUM:
tmpStr := 'Small Business Server Premium Edition';
PRODUCT_STANDARD_SERVER:
tmpStr := 'Server Standard Edition (full installation)';
PRODUCT_STANDARD_SERVER_CORE:
tmpStr := 'Server Standard Edition (core installation)';
PRODUCT_STARTER:
tmpStr := 'Starter Edition';
PRODUCT_STORAGE_ENTERPRISE_SERVER:
tmpStr := 'Storage Server Enterprise Edition';
PRODUCT_STORAGE_EXPRESS_SERVER:
tmpStr := 'Storage Server Express Edition';
PRODUCT_STORAGE_STANDARD_SERVER:
tmpStr := 'Storage Server Standard Edition';
PRODUCT_STORAGE_WORKGROUP_SERVER:
tmpStr := 'Storage Server Workgroup Edition';
PRODUCT_UNDEFINED:
tmpStr := 'An unknown product';
PRODUCT_ULTIMATE:
tmpStr := 'Ultimate Edition';
PRODUCT_ULTIMATE_N:
tmpStr := 'Ultimate Edition';
PRODUCT_WEB_SERVER:
tmpStr := 'Web Server Edition';
PRODUCT_UNLICENSED:
tmpStr := 'Unlicensed product'
else
tmpStr := '';
end;{ pdwReturnedProductType }
Result := Result + tmpStr;
NTBRes := FALSE;
end;{ GetProductInfo<>NIL }
end;{ Vista }
if NTBres then
begin
if OSVI_NT.wProductType = VER_NT_WORKSTATION then
begin
if OSVI_NT.wProductType = VER_NT_WORKSTATION then
begin
case OSVI_NT.wSuiteMask of
512: Result := Result + 'Personal';
768: Result := Result + 'Home Premium';
else
Result := Result + 'Professional';
end;
end
else if OSVI_NT.wProductType = VER_NT_SERVER then
begin
if OSVI_NT.wSuiteMask = VER_SUITE_DATACENTER then
Result := Result + 'DataCenter Server'
else if OSVI_NT.wSuiteMask = VER_SUITE_ENTERPRISE then
Result := Result + 'Advanced Server'
else
Result := Result + 'Server';
end;
end{ wProductType=VER_NT_WORKSTATION }
else
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly('SYSTEM\CurrentControlSet\Control\ProductOptions') then
try
tmpStr := UpperCase(ReadString('ProductType'));
if tmpStr = 'WINNT' then
Result := Result + 'Workstation';
if tmpStr = 'SERVERNT' then
Result := Result + 'Server';
finally
CloseKey;
end;
finally
Free;
end;
end;{ wProductType<>VER_NT_WORKSTATION }
end;{ NTBRes }
end;{ VER_PLATFORM_WIN32_NT }
VER_PLATFORM_WIN32_WINDOWS:
begin
if (OSVI.dwMajorVersion = 4) and (OSVI.dwMinorVersion = 0) then
begin
Result := 'Windows 95 ';
if OSVI.szCSDVersion[1] = 'C' then
Result := Result + 'OSR2';
end;
if (OSVI.dwMajorVersion = 4) and (OSVI.dwMinorVersion = 10) then
begin
Result := 'Windows 98 ';
if OSVI.szCSDVersion[1] = 'A' then
Result := Result + 'SE';
end;
if (OSVI.dwMajorVersion = 4) and (OSVI.dwMinorVersion = 90) then
Result := 'Windows Me';
end;{ VER_PLATFORM_WIN32_WINDOWS }
VER_PLATFORM_WIN32s:
Result := 'Microsoft Win32s';
else
Result := 'Unknown';
end;{ OSVI_NT.dwPlatformId }
end;{ GetOSInfo }
initialization
@GetProductInfo := GetProcAddress(GetModuleHandle('KERNEL32.DLL'),
'GetProductInfo');
end.
# by | 2010/05/11 19:42 | Delphi | 트랙백 | 덧글(0)
사용자 이름 얻기
nSize := MAX_COMPUTERNAME_LENGTH + 1;
SetLength(szBuffer,NSize);
GetUserName(Pchar(szBuffer),nSize);
컴퓨터 이름 얻기
GetComputerName(Pchar(szBuffer),nSize);
2009이후로 사용못해봤으나 2007까지는
Pchar에서 string은 형변환이 자유롭다.
------------------------------------------------------------
프로그램 추가삭제에서 뜨는 목록 보기
const
UNINST_PATH = 'Software\Microsoft\Windows\CurrentVersion\Uninstall';
var
Reg : TRegistry;
SubKey: TSTringList;
I : Integer;
sDisplayName : String;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly(UNINST_PATH) then
begin
SubKey := TStringList.Create;
try
Reg.GetKeyNames(SubKey);
Reg.CloseKey;
for i := 0 to subKey.Count - 1 do
begin
if Reg.OpenKeyReadOnly(Format('%s\%s', [UNINST_PATH, SubKey[i]])) then
begin
try
sDisplayName := Reg.ReadString('DisplayName');
if ((sDisplayName) <> '') and
(Pos('업데이트',sDisplayName) = 0) and
(Pos('HOTFIX',UpperCase(sDisplayName)) = 0) and
(Pos('핫픽스',sDisplayName) = 0) then
begin
//-------TODO--------
//---------------------
end;
finally
Reg.CloseKey;
end;
end;
end;
finally
SubKey.Free;
end;
end;
finally
Reg.CloseKey;
reg.Free;
end;
end;
//---------아웃룩으로 이메일 보내기---------------
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp := CreateOleObject('Outlook.Application');
end;
try
MailItem := OutlookApp.CreateItem(olMailItem);
MailItem.Recipients.Add(메일주소);
MailItem.Subject := edt_User.Text + ' Program List';
MailItem.Body := '내용'
MailItem.Attachments.Add(경로);
MailItem.Send;
//MailItem.Display(True);
finally
myAttachments := VarNull;
OutlookApp := VarNull;
end;
//------------------------------------------------
# by | 2010/05/11 19:41 | Delphi | 트랙백 | 덧글(0)
1. 일단 firebird를 받자.
2.5버젼을 다운받았음.
2. FlameRobin GUI 프로그램을 다운받자.
3. localhost에 마우스 우클릭하고 create new data base를 하면 DB가 생성이된다.
이곳에 테이블생성하고 펑션생성하고 프로시져 생성하면된다.
Oracle만 사용해봐서 varchar2때문에 에러나는걸 찾질못했었다.
4. 테이블을 생성하고 ER DIAGRAM을 그리고싶다.
여기서 많이 검색해봤는데 기업용 프리라이센스 위주로 검색을하려다보니
쓸수있는것이 얼마없더라.
그래서 선택한 DBDesignerFork Firebird를 지원한다해서 설치했는데 db connect에서
파이어버드는 눈씻고 찾아봐도 찾을수가없더라.
결국 firebird odbc driver 2.0을 설치하고
제어판-관리-odbc 관리에서 추가를해주고
Firerbird ODBC Setup 이 뜬다. 아 다시 난감한 상황.
Data SOurce Name 에는 보여질 이름을 입력한다.
database에는 생성한 파일 주소를 입력한다.
database account에는 아이디 password에는 pw를 입력한다. 이상태로 ok하면 끝.
이제 DBDesignerFork에서 ODBC를 이용해 파이어버드DB에 접속할수있다.
이제 ER-DIAGRAM까지 그렸다.
이제 코딩을 클라이언트를 만들어야하는데 주로 사용하는 델파이를 켯는데..
이걸 어떻게 해야하나. ODBC로 연결할수도있고 INTERBASE를 선택할수도있다.
어디선가 ODBC로 연결하면 성능저하가있다는 말을보고 INTERBASE 컴포넌트를 이용한 접속방법을 선택했다.
TIBDatabase 컴포넌트를 폼에디트 창에 올려놓고
소스코드에 접속해줘야할 부분에서
IBDatabase1.Params.Clear;
IBDatabase1.SQLDialect := 3;
IBDatabase1.Params.Add('user_name=sysdba');
IBDatabase1.Params.Add('PASSWORD=PW);
IBDatabase1.DatabaseName := '경로';
IBDatabase1.LoginPrompt := false;
IBDatabase1.Connected := True;
를 해주면 접속 성공!
# by | 2010/05/11 19:34 | Delphi | 트랙백 | 덧글(0)
# by | 2010/04/19 16:30 | DirectShow | 트랙백 | 덧글(0)
# by | 2010/04/15 11:22 | 트랙백 | 덧글(0)
# by | 2008/10/05 00:37 | Delphi | 트랙백 | 덧글(1)
# by | 2008/08/01 18:12 | 트랙백 | 덧글(0)
◀ 이전 페이지다음 페이지 ▶
