Q&A
- 소스 좀 봐 주세요(C++ DLL function 부르기)
interface
function hash(instr : pchar) : pchar ; stdcall;
//extern "C" __declspec(dllexport) char* hash(char* instr);
implementation
function hash(instr : pchar) : pchar ; stdcall ; external 'hash.dll' name 'hash';
{$R *.DFM}
procedure TForm1.Button4Click(Sender: TObject);
var
temp, strchar : pchar;
str : string;
begin
strchar := pchar(edit1.text);
temp := hash(strchar);
end;
뭐가 잘못 된 건지
에러가 나는데
그럼 이만
function hash(instr : pchar) : pchar ; stdcall;
//extern "C" __declspec(dllexport) char* hash(char* instr);
implementation
function hash(instr : pchar) : pchar ; stdcall ; external 'hash.dll' name 'hash';
{$R *.DFM}
procedure TForm1.Button4Click(Sender: TObject);
var
temp, strchar : pchar;
str : string;
begin
strchar := pchar(edit1.text);
temp := hash(strchar);
end;
뭐가 잘못 된 건지
에러가 나는데
그럼 이만
2
COMMENTS
-
-
Time wrote:
> stdcall 대신 cdecl 를 사용해 보세요.
>
> function hash(instr : pchar) : pchar ; stdcall;
>
> -> function hash(instr : pchar) : pchar ; cdecl;
>
> 초보 wrote:
> > interface
> >
> > function hash(instr : pchar) : pchar ; stdcall;
> > //extern "C" __declspec(dllexport) char* hash(char* instr);
> >
> > implementation
> >
> > function hash(instr : pchar) : pchar ; stdcall ; external 'hash.dll' name 'hash';
> >
> > {$R *.DFM}
> >
> > procedure TForm1.Button4Click(Sender: TObject);
> > var
> > temp, strchar : pchar;
> > str : string;
> > begin
> > strchar := pchar(edit1.text);
> > temp := hash(strchar);
> > end;
> >
> > 뭐가 잘못 된 건지
> > 에러가 나는데
> > 그럼 이만
(NOTICE) You must be logged in to comment on this post.
-
- 이지인
- •
- 2001.11.14 20:28
- 1 COMMENTS
- /
- 0 LIKES
-
이지인•2001.11.15 01:43어떻게 자꾸 손대다보니 길이보이더군요.. 해결 했어용~~~~ ^^ 이지인 wrote: > 혼자 해볼라니깐 잘...
-
- Jane
- •
- 2001.11.14 20:31
- 1 COMMENTS
- /
- 0 LIKES
-
지나가다가..•2001.11.16 09:20procedure TForm1.Button1Click(Sender: TObject); begin Listview1.Items.Clear ; with adoque...
-
- 훈
- •
- 2001.11.14 20:15
- 3 COMMENTS
- /
- 0 LIKES
-
락이야..•2001.11.15 19:34훈 wrote: > with Query1 do begin > DataBase1.StartTransaction; > try Close; ...
-
훈•2001.11.15 23:22Close까지 가지도 못합니다. DataBase1.StartTransaction; 에서 에러가 나거든요, Closed Dataset에...
-
락이야•2001.11.19 21:39훈 wrote: > Close까지 가지도 못합니다. > > DataBase1.StartTransaction; > > 에서 에러가 나거든...
-
- seagal
- •
- 2001.11.14 20:06
- 1 COMMENTS
- /
- 0 LIKES
-
권대웅•2001.11.14 22:57www.qusoft.com 에 가서.. 퀵 리포트를 업그레이드 해보세요~! 여기가 맞나.. http://www.qusoft.com/...
-
- 초보자
- 2001.11.14 19:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대희
- •
- 2001.11.14 19:48
- 1 COMMENTS
- /
- 0 LIKES
-
김보경•2001.11.14 19:55김대희 wrote: > 안녕하세요? > 예를 들어 > > sell_price := strtofloat(edtprice.text); > 에서 ...
-
- 012
- 2001.11.14 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 델프리
- 2001.11.14 19:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용대
- 2001.11.14 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용대
- 2001.11.14 19:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.11.14 19:10
- 2 COMMENTS
- /
- 0 LIKES
interface function hash(instr : pchar) : pchar ; stdcall; //extern "C" __declspec(dllexport) char* hash(char* instr); implementation function hash(instr : pchar) : pchar ; stdcall ; external 'hash.dll' name 'hash'; {$R *....-
Time•2001.11.14 19:46stdcall 대신 cdecl 를 사용해 보세요. function hash(instr : pchar) : pchar ; stdcall; -> functi...
-
초보•2001.11.14 20:50Time wrote: > stdcall 대신 cdecl 를 사용해 보세요. > > function hash(instr : pchar) : pchar ; st...
-
- 처음
- 2001.11.14 19:07
- 0 COMMENTS
- /
- 0 LIKES
-
- manlife
- 2001.11.14 18:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 늘초보
- •
- 2001.11.14 18:41
- 2 COMMENTS
- /
- 0 LIKES
-
늘초보•2001.11.14 19:17독한맘 먹고 검색 한번더 해보았습니다.. 결국 10건씩 출력은 있더군요.. 그것도 아주 간단한 방법으로.....
-
이명호•2001.11.16 00:29잔여 빈칸은 shape가 출력이 안되는 문제인가요? 혹시 그문제라면 저는 shape를 밴드위에다 올리지 않고...
-
- 초보자
- 2001.11.14 18:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 훈
- 2001.11.14 18:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 죠스고기
- 2001.11.14 10:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 도사
- 2001.11.14 09:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 용이
- 2001.11.14 08:30
- 0 COMMENTS
- /
- 0 LIKES
-
- Na-*
- 2001.11.14 07:07
- 0 COMMENTS
- /
- 0 LIKES
function hash(instr : pchar) : pchar ; stdcall;
-> function hash(instr : pchar) : pchar ; cdecl;
초보 wrote:
> interface
>
> function hash(instr : pchar) : pchar ; stdcall;
> //extern "C" __declspec(dllexport) char* hash(char* instr);
>
> implementation
>
> function hash(instr : pchar) : pchar ; stdcall ; external 'hash.dll' name 'hash';
>
> {$R *.DFM}
>
> procedure TForm1.Button4Click(Sender: TObject);
> var
> temp, strchar : pchar;
> str : string;
> begin
> strchar := pchar(edit1.text);
> temp := hash(strchar);
> end;
>
> 뭐가 잘못 된 건지
> 에러가 나는데
> 그럼 이만