Q&A
- 이런 에러는 어케 잡아요. 정말 못잡겠어요..
* 사용환경 : 델파이4 / Windows 98
* 에러 메시지 :
[Error] Unit1.pas(47): Types of actual and formal var parameters must be identical
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, WinSvc;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function ServiceStartStatus(sService : string ) : DWord;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(IntToStr(ServiceStartStatus('ServiceServerDemon')));
end;
// 리턴값이 0이면 에러, 1이면 자동실행, 2이면 수동실행이다.
function TForm1.ServiceStartStatus(sService : string ) : DWord;
var
schm, schs : SC_Handle;
ss : TQueryServiceConfig;
dwStat, temp : Integer;
begin
dwStat := 0;
schm := OpenSCManager(Nil,Nil,SC_MANAGER_CONNECT);
if(schm > 0)then
begin
schs := OpenService(schm,PChar(sService),SERVICE_QUERY_CONFIG);
if(schs > 0)then
begin
if QueryServiceConfig(schs,ss,SizeOf(ss),temp) then dwStat := ss.dwStartType;
CloseServiceHandle(schs);
end;
CloseServiceHandle(schm);
end;
if SERVICE_AUTO_START = dwStat then
dwStat := 1;
if SERVICE_DEMAND_START = dwStat then
dwStat := 2;
Result := dwStat;
end;
end.
* 에러 메시지 :
[Error] Unit1.pas(47): Types of actual and formal var parameters must be identical
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, WinSvc;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function ServiceStartStatus(sService : string ) : DWord;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(IntToStr(ServiceStartStatus('ServiceServerDemon')));
end;
// 리턴값이 0이면 에러, 1이면 자동실행, 2이면 수동실행이다.
function TForm1.ServiceStartStatus(sService : string ) : DWord;
var
schm, schs : SC_Handle;
ss : TQueryServiceConfig;
dwStat, temp : Integer;
begin
dwStat := 0;
schm := OpenSCManager(Nil,Nil,SC_MANAGER_CONNECT);
if(schm > 0)then
begin
schs := OpenService(schm,PChar(sService),SERVICE_QUERY_CONFIG);
if(schs > 0)then
begin
if QueryServiceConfig(schs,ss,SizeOf(ss),temp) then dwStat := ss.dwStartType;
CloseServiceHandle(schs);
end;
CloseServiceHandle(schm);
end;
if SERVICE_AUTO_START = dwStat then
dwStat := 1;
if SERVICE_DEMAND_START = dwStat then
dwStat := 2;
Result := dwStat;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 궁금녀
- 2000.05.28 23:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수정
- •
- 2000.05.28 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
psh•2000.05.28 21:41이수정 wrote: > > memo 에 word 형 데이타를 add 할려고 하는데.. > > 어떻게.. 할 수 있을까요...
-
- 황당이
- •
- 2000.05.28 10:15
- 1 COMMENTS
- /
- 0 LIKES
* 사용환경 : 델파이4 / Windows 98 * 에러 메시지 : [Error] Unit1.pas(47): Types of actual and formal var parameters must be identical [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' unit Unit1; inter...-
psh•2000.05.28 21:46황당이 wrote: > * 사용환경 : 델파이4 / Windows 98 > * 에러 메시지 : > > > [Error] Unit1.pas(...
-
- 델_맹
- •
- 2000.05.28 10:05
- 1 COMMENTS
- /
- 0 LIKES
-
psh•2000.05.28 21:40델_맹 wrote: > 안녕하십니까, 델파이 관계자 여러분들....... > 요즘 계속 날씨가 꿀꿀하죠, 그래도 밝...
-
- 델_맹
- •
- 2000.05.28 09:52
- 1 COMMENTS
- /
- 0 LIKES
-
psh•2000.05.28 21:49델_맹 wrote: > 로딩폼(스플래쉬폼)이라는 게 있더군요. > 프로그램이 로딩될때(시작할때) 뜨는 폼 말입...
-
- 신지훈
- 2000.05.28 09:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.05.28 09:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 사공엽
- •
- 2000.05.28 09:16
- 1 COMMENTS
- /
- 0 LIKES
-
psh•2000.05.28 21:55사공엽 wrote: > 일반버튼, TBitBtn 등등 버튼 종류는 모두 color property가 없네요. > RunTime에 이런 ...
-
- 사공엽
- 2000.05.28 08:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수정
- •
- 2000.05.28 05:55
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.28 07:19이수정 wrote: > > 델파이.. 4와 5를 모두 깔려고 하는데.. > > 전에는... 4를 깔고 5를 깔았었거...
-
- son
- 2000.05.28 03:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 급한녀
- 2000.05.28 02:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 신지훈
- 2000.05.28 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 정원혁
- 2000.05.28 01:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 정원혁
- •
- 2000.05.28 00:57
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•2000.05.28 03:16안녕하세요.. 먼저 문제점부터 이야기하면 que1이란 변수안에 들어가있는 sql문은 ParamByName이라는 ...
-
- 이상호
- •
- 2000.05.28 00:21
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.05.28 04:48아래에서 데이터 처리를 한다라고 했는데 처리에 대한 내용에 따라 달라지겠죠... 어떤 처리를 해야 ...
-
유레카•2000.06.02 19:18아래와 같이 해보세요. Query Open 하고 Query1.First; while not Query1.Eof do begin // 데이타...
-
- 이상호
- 2000.05.28 00:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상호
- •
- 2000.05.28 00:09
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.28 07:15이상호 wrote: > 질문] Quick Report출력시 자신이 원하는 페이지를 설정하여 출력을 > 할수는 없...
-
- 양병규
- 2000.05.28 00:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상호
- 2000.05.28 00:03
- 0 COMMENTS
- /
- 0 LIKES
> * 사용환경 : 델파이4 / Windows 98
> * 에러 메시지 :
>
>
> [Error] Unit1.pas(47): Types of actual and formal var parameters must be identical
> [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
>
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, WinSvc;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> function ServiceStartStatus(sService : string ) : DWord;
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> showmessage(IntToStr(ServiceStartStatus('ServiceServerDemon')));
> end;
>
> // 리턴값이 0이면 에러, 1이면 자동실행, 2이면 수동실행이다.
> function TForm1.ServiceStartStatus(sService : string ) : DWord;
> var
> schm, schs : SC_Handle;
> ss : TQueryServiceConfig;
> dwStat, temp : Integer;
> begin
> dwStat := 0;
> schm := OpenSCManager(Nil,Nil,SC_MANAGER_CONNECT);
> if(schm > 0)then
> begin
> schs := OpenService(schm,PChar(sService),SERVICE_QUERY_CONFIG);
> if(schs > 0)then
> begin
> if QueryServiceConfig(schs,ss,SizeOf(ss),temp) then dwStat := ss.dwStartType;
> CloseServiceHandle(schs);
> end;
> CloseServiceHandle(schm);
> end;
>
> if SERVICE_AUTO_START = dwStat then
> dwStat := 1;
>
> if SERVICE_DEMAND_START = dwStat then
> dwStat := 2;
>
> Result := dwStat;
> end;
>
> end.
>
>
정확히는 모르겠지만 위에 쓰인 함수 중에 파라미터값으로 var형 변수를 갖는 것이 있는 것 같은데요. 맞는지요? 그렇다면 그 함수의 인자로 넘겨주는 값도 var형으로 써주셔야 될 것 같은데요. OpenService함수가 그렇지 않을까 모르겠네요.