Q&A
- 무시카게...DLL질문입당...^^
Dll을 사용할라고 하는 소쓰 입니당...
--------------------------------------------------------
unit Unit1;
interface
Function SC_Open(Baud:Integer; port:Integer):Integer; cdecl;
Function SC_Close():Integer;cdecl;
Function CardPowerOn(Recv:String):Integer; cdecl;
Function CardPowerOff(Recv:String):Integer; cdecl;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Function SC_Open; external 'VtModule.dll' name 'SC_Open';
Function SC_Close; external 'VtModule.dll' name 'SC_Close';
Function CardPowerOn; external 'VtModule.dll' name 'CardPowerOn';
Function CardPowerOff; external 'VtModule.dll' name 'CardPowerOff';
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '양종일';
end;
end.
---------------------------------------------
근데여..
[Error] Unit1.pas(8): Declaration expected but 'USES' found
[Error] Unit1.pas(13): Undeclared identifier: 'TForm'
[Error] Unit1.pas(14): Undeclared identifier: 'TButton'
[Error] Unit1.pas(15): Undeclared identifier: 'TEdit'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(36): Statement expected, but expression of type 'String' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
냐하하! 무식하게 다 올립니당...
에러가...
지가 델 왕초보걸랑려...
부
--------------------------------------------------------
unit Unit1;
interface
Function SC_Open(Baud:Integer; port:Integer):Integer; cdecl;
Function SC_Close():Integer;cdecl;
Function CardPowerOn(Recv:String):Integer; cdecl;
Function CardPowerOff(Recv:String):Integer; cdecl;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Function SC_Open; external 'VtModule.dll' name 'SC_Open';
Function SC_Close; external 'VtModule.dll' name 'SC_Close';
Function CardPowerOn; external 'VtModule.dll' name 'CardPowerOn';
Function CardPowerOff; external 'VtModule.dll' name 'CardPowerOff';
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '양종일';
end;
end.
---------------------------------------------
근데여..
[Error] Unit1.pas(8): Declaration expected but 'USES' found
[Error] Unit1.pas(13): Undeclared identifier: 'TForm'
[Error] Unit1.pas(14): Undeclared identifier: 'TButton'
[Error] Unit1.pas(15): Undeclared identifier: 'TEdit'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(36): Statement expected, but expression of type 'String' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
냐하하! 무식하게 다 올립니당...
에러가...
지가 델 왕초보걸랑려...
부
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 문청희
- •
- 2000.11.29 00:22
- 2 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.01 20:01물론 있습니다. 생성 create 수정 alter ==> 아마... 단어가 맞나 모르겠습니다요. 삭제 drop ... -
황광일•2000.11.29 09:09똑같은 테이블을 하나 더 만든다음.... 물론 런타임에서 동적으로 맹글어야 겠고... 그런다음....배치무...
-
- 최정훈
- 2000.11.29 06:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 문의득
- 2000.11.29 00:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 이홍락
- •
- 2000.11.28 23:38
- 1 COMMENTS
- /
- 0 LIKES
-
이윤석•2000.11.28 23:44var mc:TComponent; begin mc:=FindComponent('Button1'); end; 이런식으로 하면 됩니다. 이...
-
- 이윤석
- 2000.11.28 23:35
- 0 COMMENTS
- /
- 0 LIKES
-
- heimdal
- •
- 2000.11.28 23:28
- 5 COMMENTS
- /
- 0 LIKES
-
최영근•2000.11.29 04:33heimdal wrote: > 안녕하세요..헤임달입니다.. > > statusbar에 시간을 나타내주고싶은데요.. > > ...
-
타락천사•2000.11.29 02:15안녕하세여.. 타락임다..^^ StatusBar1.Panels[2].Text:= FormatDateTime('tt', Now)); 즐푸하세여.....
-
정영민•2000.11.28 23:34statusbar1.Panels[2].text:=datetimetostr(formatdatetime('tt hh:mm:ss', now)); 위에서 FromatDatT...
-
heimdal•2000.11.29 01:06> statusbar1.Panels[2].text:=formatdatetime('tt hh:mm:ss', now); > > 이렇게 해보세요/../ 글올리...
-
어제델파이시작한사람•2001.04.04 07:09heimdal wrote: > > statusbar1.Panels[2].text:=formatdatetime('tt hh:mm:ss', now); > > > > 이렇게...
-
- 델초
- •
- 2000.11.29 06:06
- 1 COMMENTS
- /
- 0 LIKES
-
최은석•2000.11.29 06:07한글이 한자밖에 안된다는건.. 아마도...그 에디트박스의 maxlength 가 2 로 설정되어 있어서 그럴것입니...
-
- 델초
- 2000.11.28 22:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 질문멘
- •
- 2000.11.29 06:07
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2000.11.29 06:08제가 예전에 무식한 코딩으로 구현한것이 여기 Q&A에 올린게 있을거예요... 없으면 메일주세요... 보잘것 ...
-
- 초코바
- 2000.11.28 22:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 박혜윤
- •
- 2000.11.29 06:08
- 1 COMMENTS
- /
- 0 LIKES
-
최정•2000.11.29 06:09Delphi설치 폴더에 보시면 Demos폴더에 Virtual Listview란 sample이 있습니다. 기능상 요구하신 것과 동...
-
- 질문멘
- •
- 2000.11.29 06:10
- 1 COMMENTS
- /
- 0 LIKES
-
전형식•2001.01.17 01:37질문멘 wrote: > IE 보면요 > 링크위에 마우스대면 상태빠에 주소 나오잖아요 > 그거 Webbrowser써서 구...
-
- 구관중
- 2000.11.28 21:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네
- 2000.11.28 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 작성
- 2000.11.28 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 성더기
- 2000.11.28 20:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 냐하하..
- •
- 2000.11.28 20:10
- 1 COMMENTS
- /
- 0 LIKES
Dll을 사용할라고 하는 소쓰 입니당... -------------------------------------------------------- unit Unit1; interface Function SC_Open(Baud:Integer; port:Integer):Integer; cdecl; Function SC_Close():Integer;cdecl; Function ...-
aviman•2000.11.28 20:22unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Fo...
-
- 병아리델파이
- 2000.11.28 19:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 하니
- •
- 2000.11.28 19:49
- 3 COMMENTS
- /
- 0 LIKES
-
권경미•2000.11.29 20:07하니 wrote: > 모두 그런건 아니구요 > 다른 NT에서 작성한 DEPHI5 프로그램은 제대로 나타나는데 > 저...
-
aviman•2000.11.28 20:36음.. 답이 될런지 모르겠네요.. 폼 속성중의 하나인 ParentFont를 False로 해 주세요.. 글쿠 깨진다는 컴...
-
이경문•2000.11.28 22:06Form - Font - DefaultCharset을 DEFAULT_CHARSET으로 해 주세요. aviman wrote: > 음.. 답이 될런지 ...
-
- 왕초부
- •
- 2000.11.28 19:56
- 4 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.29 03:13왕초부 wrote: > IntToHex함수는 있는디 반대루 16진수을 10진수로 변경하는 함수는 없나여 > 아시는분 ...
-
술친구•2000.11.28 20:19왕초부 wrote: > IntToHex함수는 있는디 반대루 16진수을 10진수로 변경하는 함수는 없나여 > 아시는분 ...
-
왕초부•2000.11.29 06:14첫번째 비트을 부호비트로 사용할수는 없는가여? 예) FFFFh --> -1 8000h --> -32768
-
창돌•2000.11.29 06:15> 첫번째 비트을 부호비트로 사용할수는 없는가여? > 예) FFFFh --> -1 > 8000h --> -32768 안녕...
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Function SC_Open(Baud:Integer; port:Integer):Integer; cdecl; external 'VtModule.dll'
Function SC_Close():Integer;cdecl; external 'VtModule.dll'
Function CardPowerOn(Recv:String):Integer; cdecl; external 'VtModule.dll'
Function CardPowerOff(Recv:String):Integer; cdecl; external 'VtModule.dll'
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := '양종일';
end;
end.
이렇게 선언하세요.. 간단하죠?
글쿠 반드시 VtModule.dll은 프로그램이 실행되는 디렉토리 안이나 시스템 디렉토리에 있어야 합니다. 그럼..
냐하하.. wrote:
> Dll을 사용할라고 하는 소쓰 입니당...
> --------------------------------------------------------
> unit Unit1;
>
> interface
> Function SC_Open(Baud:Integer; port:Integer):Integer; cdecl;
> Function SC_Close():Integer;cdecl;
> Function CardPowerOn(Recv:String):Integer; cdecl;
> Function CardPowerOff(Recv:String):Integer; cdecl;
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> Edit1: TEdit;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
> Function SC_Open; external 'VtModule.dll' name 'SC_Open';
> Function SC_Close; external 'VtModule.dll' name 'SC_Close';
> Function CardPowerOn; external 'VtModule.dll' name 'CardPowerOn';
> Function CardPowerOff; external 'VtModule.dll' name 'CardPowerOff';
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Edit1.Text := '양종일';
> end;
>
> end.
> ---------------------------------------------
> 근데여..
>
> [Error] Unit1.pas(8): Declaration expected but 'USES' found
> [Error] Unit1.pas(13): Undeclared identifier: 'TForm'
> [Error] Unit1.pas(14): Undeclared identifier: 'TButton'
> [Error] Unit1.pas(15): Undeclared identifier: 'TEdit'
> [Error] Unit1.pas(36): Missing operator or semicolon
> [Error] Unit1.pas(36): Statement expected, but expression of type 'String' found
> [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
>
> 냐하하! 무식하게 다 올립니당...
> 에러가...
> 지가 델 왕초보걸랑려...
> 부