기뻐닷컴: 델파이 자료

레이블이 델파이 자료인 게시물을 표시합니다. 모든 게시물 표시

2010년 11월 30일 화요일

DLL 에서 string 반환값 시 에러 발생 하는 경우

string 값을 반환하는 DLL 함수 생성후 에러 발생 시

uses 절에 ShareMem 을 처음으로 등록 하라고 함.

dll 과 pas 에서 둘다 등록 했는데...

프로그램 종료시에 에러 발생 합...

dpr 파일에도 ShareMem 을 등록 하니...

이상 없이 잘 됨.

2010년 11월 16일 화요일

TApdWinsockPort 0xFF 전송시 0xFF 가 붙는경우

wsTelnet 옵션이 True 가 된 경우 0xFF 전송시 0xFF 0xFF 와 같이 전송 됨

wsTelnet 옵션을 False 로 변경

2010년 6월 25일 금요일

Delphi 주요 함수(Function) 및 프로시져(Procedure)

procedure read(v1,v2,v3....);

procedure readln(v1,v2,v3...);

값을 입력받은 후 다음 행으로 이동

procedure write(v1,v2,....);

procedure writeln(v1,v2...);

값을 출력한 후 다음 행으로 이동

function chr(x):char;

x(아스키 코드값)에 해당하는 문자로 변환

function ord(x):integer; x(문자)에 해당하는 순서

즉 아스키코드값 리턴

function int(X: Extended): Extended;

실수값의 소숫점이하를 버리고 정수부분만 취한다.

Int(32.45) ← 32.0

function trunc(X: Extended): Int64;

실수값의 소숫점이하를 버리고 정수부분만 취한다.

trunc(32.45) ← 32

function odd(x:integer):boolean;

x가 홀수면 true, 짝수면 false를 되돌린다.

function random(x:integer):integer;

0~x-1 사이의 정수 난수 발생

function random:real;

0~1사이의 실수 난수 발생

procedure randomize;

function upcase(ch:char):char;

소문자를 대문자로 변환

procedure inc(var x[;n:integer]);

x의 값을 일정하게 증가

inc(x); ← x:=x+1

inc(x,2); ← x:=x+2

procedure dec(var x[;n:integer]);

x의 값을 일정하게 감소

dec(x); ← x:=x-1

dec(x,2); ← x:=x-2

function abs(x:integer):integer; 절대값(정수)

function abs(x:real):real; 절대값(실수)

function sqr(x):x 와 동일 type

x의 제곱값을 리턴

function sqrt(x:real):real;

x의 제곱근값을 계산하여 리턴 (x>0)

function length(s:string):integer;

문자열의 길이

function copy(s:string;x:integer;cnt:integer):string;

문자열 s를 x로 부터 cnt만큼 자른다

procedure delete(var s:string;x:integer;cnt:integer);

문자열 s를 x부터 cnt만큼 오려낸다

procedure insert(so:string;var s:string;idx:integer);

s문자열의 idx위치에서 so문자열을 삽입하며, s문자열 의 나머지 문자들은 우측으로 이동한다.

function pos(substr,s:string):byte;

문자열 s를 처음부터 검색하여 substr문자열이 있는지를 확인하여 위치를 되돌린다.

procedure str(s[:width[:decimal]];var s);

수치형 데이터를 문자열 변환후 s에 기억

procedure val(s:string;var v:integer;var code:integer);

수치형 문자를 숫자로 변환후 v에 기억

변환과정에서의 error는 code에 기억

function eof(var f:text):boolean;

파일의 끝에 도달했는지를 확인

2010년 5월 25일 화요일

Delphi - ODBC Create

Sample1

const
ODBC_ADD_DSN=1;
ODBC_CONFIG_DSN=2;
ODBC_REMOVE_DSN=3;
ODBC_ADD_SYS_DSN=4;
ODBC_CONFIG_SYS_DSN=5;
ODBC_REMOVE_SYS_DSN=6;
ODBC_REMOVE_DEFAULT_DSN=7;

function SQLConfigDataSource(HwndParent:HWND;FRequest:WORD;Driver:PChar;
Attributes:Pchar):boolean;Stdcall;

function SQLWriteDSNToIni(DSN: PChar;Driver: PChar):Boolean stdcall;
function SQLRemoveDSNFromIni(DSN: PChar):Boolean stdcall;

implementation

{$R *.dfm}

function SQLConfigDataSource;external 'odbccp32.dll' name 'SQLConfigDataSource';
function SQLWriteDSNToIni;external 'odbccp32.dll' name 'SQLWriteDSNToIni';
function SQLRemoveDSNFromIni;external 'odbccp32.dll' name 'SQLRemoveDSNFromIni';

procedure TForm1.Button1Click(Sender: TObject);
begin
if SQLRemoveDSNFromIni('TA') then
begin
SQLWriteDSNToIni('TA', 'SQL Server');
SQLConfigDataSource(0, ODBC_CONFIG_DSN,
PChar('SQL Server'),
// add other params to the last one here:
PChar('DSN=TA'+ #0 +
'Server=(local)'+ #0#0));
// to remove the one that you created, use this code:
// SQLRemoveDSNFromIni('TA');
end;

Sample2

const
ODBC_ADD_DSN = 1; // Add data source
ODBC_CONFIG_DSN = 2; // Configure (edit) data source
ODBC_REMOVE_DSN = 3; // Remove data source
ODBC_ADD_SYS_DSN = 4; // add a system DSN
ODBC_CONFIG_SYS_DSN = 5; // Configure a system DSN
ODBC_REMOVE_SYS_DSN = 6; // remove a system DSN
ODBC_REMOVE_DEFAULT_DSN = 7; // remove the default DSN

function SQLConfigDataSource(hwndParent: HWND;
fRequest: Word;
lpszDriver: LPCSTR;
lpszAttributes: LPCSTR): BOOL; stdcall; external 'ODBCCP32.DLL';

function CreateDB(const Database: string): Boolean;
begin
Result := SQLConfigDataSource(0, ODBC_ADD_DSN,
'Microsoft Access Driver (*.mdb)', PChar('CREATE_DB=' + Database + ' General'#0));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CreateAccessDatabase('c:\Testdb.mdb');
end;

2010년 5월 12일 수요일

adoconnection 에서 "exception class EAccessViolation with message" 에러 발생시

"exception class EAccessViolation with message"

이 메시지가 출력 되는 경우는

AdoConnection 이 생성되지 않은 상태에서 Connect 을 하려고 하는 경우...

일반적으로 데이터모듈에 AdoConnection 을 올리고...

데이터모듈이 생성 되지 않은 상태에서 AdoConnect 을 시도 하는 경우에 발생함

2010년 1월 27일 수요일

델파이에서 Enter 키를 탭키처럼 사용하기

KeyPress 이벤트에 다음과 같이 코딩

if Key = Char(VK_RETURN) then
Perform(WM_NEXTDLGCTL,0,0);

2009년 10월 14일 수요일

[ActiveX]웹사이트 접속시 해당프로그램 설치 유무 후 프로그램실행시키기

이 프로그램 내용은 제목과 같이...

웹사이트 접속해서 액티브엑스를 실행시키면 프로그램 설치 여부를 체크 하여...

미설치 되었으면 파일을 다운로드 받아서 설치 해 주는것이고...

설치 되었으면 해당 프로그램을 실행해 주는 것입니다.

일단 이 엑티브엑스를 만들기 전에...

해당 셋업 프로그램에 셋업시 특정 레지스트리에 실행파일 위치를 적어 놓도록 했습니다.

그래서 셋업을 하게 되면 레지스트리에 실행할 디렉토리가 남게 되는 것이고...

그 레지스트리 값을 읽어와서 레지스트리에 값이 있으면 실행

아니면 다운로드 후 실행 과 같은 형태입니다.

서버에 올릴 HTML 소스

rfid_1.html

HTML 간략 내용.

<OBJECT

</OBJECT>

이건 액티브엑스 만든후 생성된 파일에 보면 있습니다. 그 내용을 그냥 복사한 내용입니다.

<SCRIPT TYPE="TEXT/JAVASCRIPT"

if (parameters.length > 1)
{
AX.SETID = request.getId();
}
AX.ButtonClick = 1;

/SCRIPT>

이건 URL 의 변수부분을 받아 오기 위한 부분입니다.

가령 http://zeron.co.kr/rfid.html?id=test 이렇게 입력을 하게 되면...

AX.SETID = request.getId(); 여기에서

액티브엑스의 변수 ID 에 test 라는 아이디를 셋팅하게 되는 과정입니다.

AX.ButtonClick = 1; 이건 액티브엑스의 버튼을 클릭하게 하는 것이구요...

스크립트 내의

function activeX_self() 함수는 액티브엑스가 설치되어 있는지 유무를 체크합니다.

설치 되어 있다면 위의 엑티브엑스를 실행 했으니...

if(Installed == true)
{
   window.opener='Self';
window.open('','_parent','');
window.close(); //설치되어 있으면 창을 닫는다.
   }
else
{
   alert("ActiveX 를 설치 하셔야 합니다..");
}

설치되어 있으면 액티브엑스 실행후 창을 닫고 아니면 아래 화면을 쭉 뿌려 주면서

액티브엑스 설치 할 수 있도록 화면에서 안내를 해 줍니다.

제가 웹쪽에 거의 문외한이라 블로그에 화면 덤프 뜬 다음 카피해서 붙여놓은거라...

화면이 예쁘지 않네요...

http://zeron.co.kr/rfid.html 테스트 해 보실 수 있는 주소입니다.

델파이 ActiveX 소스

ActiveX Guest.zip