Q&A
- comdrv32 컴포넌트에서 에러가 발생합니다(소스 첨부)
언제서 부터인가 이 컴포넌트가 에러가 뜹니다.
function TCommPortDriver.SendData( DataPtr: pointer; DataSize: integer ): nteger;
var nToSend, nsent: integer;
t1: longint;
begin
{ 0 bytes sent }
Result := 0;
{ Do nothing if not connected }
if not Connected then
exit;
{ Current time }
t1 := GetTickCount;
{ Loop until all data sent or timeout occurred }
while DataSize > 0 do
begin
{ Get output buffer free space }
nToSend := OutFreeSpace;
{ If output buffer has some free space... }
if nToSend > 0 then
begin
{ Don't send more bytes than we actually have to send }
if nToSend > DataSize then
nToSend := DataSize;
{ Send }
이부분-> WriteFile( FComPortHandle, DataPtr^, DataSize, nsent, nil ); <- 이부분
{ Update number of bytes sent }
Result := Result + abs(nsent);
{ Decrease the count of bytes to send }
DataSize := DataSize - abs(nsent);
{ Get current time }
t1 := GetTickCount;
{ Continue. This skips the time check below (don't stop
trasmitting if the FOutputTimeout is set too low) }
continue;
end;
{ Buffer is full. If we are waiting too long then
invert the number of bytes sent and exit }
if (GetTickCount-t1) > FOutputTimeout then
begin
Result := -Result;
exit;
end;
end;
end;
[Error] ComDrv32.pas(611): Types of actual and formal var parameters must be identical
[Warning] ComDrv32.pas(624): Combining signed and unsigned types - widened both operands
[Fatal Error] dclusr50.dpk(34): Could not compile used unit '........Backupcomponentcomm32ComDrv32.pas'
이런 에러 메세지가....
그럼 답변 부탁드립니다.
혹시 이것에 대해 아시는 분없나요?
또는 해결책이나요...
고수님 리플부탁드립니다.
function TCommPortDriver.SendData( DataPtr: pointer; DataSize: integer ): nteger;
var nToSend, nsent: integer;
t1: longint;
begin
{ 0 bytes sent }
Result := 0;
{ Do nothing if not connected }
if not Connected then
exit;
{ Current time }
t1 := GetTickCount;
{ Loop until all data sent or timeout occurred }
while DataSize > 0 do
begin
{ Get output buffer free space }
nToSend := OutFreeSpace;
{ If output buffer has some free space... }
if nToSend > 0 then
begin
{ Don't send more bytes than we actually have to send }
if nToSend > DataSize then
nToSend := DataSize;
{ Send }
이부분-> WriteFile( FComPortHandle, DataPtr^, DataSize, nsent, nil ); <- 이부분
{ Update number of bytes sent }
Result := Result + abs(nsent);
{ Decrease the count of bytes to send }
DataSize := DataSize - abs(nsent);
{ Get current time }
t1 := GetTickCount;
{ Continue. This skips the time check below (don't stop
trasmitting if the FOutputTimeout is set too low) }
continue;
end;
{ Buffer is full. If we are waiting too long then
invert the number of bytes sent and exit }
if (GetTickCount-t1) > FOutputTimeout then
begin
Result := -Result;
exit;
end;
end;
end;
[Error] ComDrv32.pas(611): Types of actual and formal var parameters must be identical
[Warning] ComDrv32.pas(624): Combining signed and unsigned types - widened both operands
[Fatal Error] dclusr50.dpk(34): Could not compile used unit '........Backupcomponentcomm32ComDrv32.pas'
이런 에러 메세지가....
그럼 답변 부탁드립니다.
혹시 이것에 대해 아시는 분없나요?
또는 해결책이나요...
고수님 리플부탁드립니다.
2
COMMENTS
-
-
안녕하세요.
저도 몇번 당해본건데. 그 컴퍼넌트 제거했다가 다시 설치해보세요..
전 그렇게 했는데..되더군요..
자세한건.저도 초보라..돔을 못드리네요..그럼..
초보 wrote:
> 언제서 부터인가 이 컴포넌트가 에러가 뜹니다.
>
> function TCommPortDriver.SendData( DataPtr: pointer; DataSize: integer ): nteger;
> var nToSend, nsent: integer;
> t1: longint;
> begin
> { 0 bytes sent }
> Result := 0;
> { Do nothing if not connected }
> if not Connected then
> exit;
> { Current time }
> t1 := GetTickCount;
> { Loop until all data sent or timeout occurred }
> while DataSize > 0 do
> begin
> { Get output buffer free space }
> nToSend := OutFreeSpace;
> { If output buffer has some free space... }
> if nToSend > 0 then
> begin
> { Don't send more bytes than we actually have to send }
> if nToSend > DataSize then
> nToSend := DataSize;
> { Send }
> 이부분-> WriteFile( FComPortHandle, DataPtr^, DataSize, nsent, nil ); <- 이부분
> { Update number of bytes sent }
> Result := Result + abs(nsent);
> { Decrease the count of bytes to send }
> DataSize := DataSize - abs(nsent);
> { Get current time }
> t1 := GetTickCount;
> { Continue. This skips the time check below (don't stop
> trasmitting if the FOutputTimeout is set too low) }
> continue;
> end;
> { Buffer is full. If we are waiting too long then
> invert the number of bytes sent and exit }
> if (GetTickCount-t1) > FOutputTimeout then
> begin
> Result := -Result;
> exit;
> end;
> end;
> end;
>
> [Error] ComDrv32.pas(611): Types of actual and formal var parameters must be identical
> [Warning] ComDrv32.pas(624): Combining signed and unsigned types - widened both operands
> [Fatal Error] dclusr50.dpk(34): Could not compile used unit '........Backupcomponentcomm32ComDrv32.pas'
>
> 이런 에러 메세지가....
>
> 그럼 답변 부탁드립니다.
>
>
> 혹시 이것에 대해 아시는 분없나요?
>
> 또는 해결책이나요...
> 고수님 리플부탁드립니다.
(NOTICE) You must be logged in to comment on this post.
-
- skpark
- 2000.11.18 02:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2000.11.18 01:53
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.11.18 02:17델초보 wrote: > ado와 SQL 를 이용하여 데이터베이스 프로그램을 하고 있습니다. > 어제까지만 해도 그...
-
- 금강산
- •
- 2000.11.18 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
coolling•2000.11.18 02:56Form의 속성에 보면, Position이라는 속성이 있습니다.. 여기에서 poMainFormCenter라는 속성으로 해주면,...
-
- 초보중 초보
- •
- 2000.11.18 00:49
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.11.18 22:36안녕하세요 청개구리 남기석( http://www.delphitravel.com )입니다. Mask 형식에서 맨 앞에 있는 '!' ...
-
-
최은석•2000.11.18 00:57흠... 아무 에러가 없는 코드인데.. 왜 안될까요? 제가 보기에는 이상이 없네요....... 혹시... execsql ...
-
-
- 김대연
- 2000.11.18 00:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 권효섭
- •
- 2000.11.18 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.11.18 02:14버전(?)이 머지여? 스탠다드는 오라클이나 에스큐엘(이렇게 써도 되나?)같은 디비는 연결할 수 없습니다. ...
-
- 초보
- •
- 2000.11.18 00:25
- 2 COMMENTS
- /
- 0 LIKES
언제서 부터인가 이 컴포넌트가 에러가 뜹니다. function TCommPortDriver.SendData( DataPtr: pointer; DataSize: integer ): nteger; var nToSend, nsent: integer; t1: longint; begin { 0 bytes sent } Result := 0; { Do nothing if ...-
황광일•2000.11.18 04:20[Error] ComDrv32.pas(611): Types of actual and formal var parameters must be identical 요 에러메...
-
정성훈•2000.11.18 04:09안녕하세요. 저도 몇번 당해본건데. 그 컴퍼넌트 제거했다가 다시 설치해보세요.. 전 그렇게 했는데..되...
-
- 초보
- •
- 2000.11.17 23:53
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2000.11.18 02:28초보 wrote: > if OpenDialog1.Execute then > begin > Assignfile(f, opendialog1.fi...
-
- 병아리
- 2000.11.17 23:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 방기남
- •
- 2000.11.17 22:44
- 3 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.11.18 01:05방기남 wrote: > > 하는 방법을 알려주십시오. > > 클릭해서 폼을 닫는것은 해결을 했는데.. > > ...
-
아이언•2000.11.17 22:53아실 내용 일텐데... WinEXEC('IEFrame', SW_SHOW); 하면.. 뜰텐데...요! 의도를 잘 모르겠네요.. ...
-
방기남•2000.11.17 23:07해봤는데... 안되는군요.... 다른 방법은 없을까여??
-
- 초보
- •
- 2000.11.17 22:29
- 1 COMMENTS
- /
- 0 LIKES
-
이성훈•2000.11.17 23:36음~~ 테이블 조인을 쓰면 되겠네요...잘 안되시면 제가 자세한 내용을 보내주세요... 그럼 즐팅하세요......
-
- 왕초보
- •
- 2000.11.17 22:10
- 5 COMMENTS
- /
- 0 LIKES
-
컴맹•2000.11.17 22:38
-
왕초보•2000.11.17 23:27
-
조규춘•2000.11.18 01:32
-
Mr.Q•2000.11.18 02:10
-
조규춘•2000.11.18 02:21
-
-
김일영•2000.11.18 00:32RTFM... (Read the ? Manual...) Help를 보세요... 그 정도는 다 나옵니다...
-
-
-
까마귀•2000.11.17 22:14초보 wrote: > 안녕하세요 > MDI차일드폼에 showmodal로 일반폼을 보여주고 esc키를 누루면 없어지는 키...
-
초보•2000.11.18 12:05까마귀 wrote: > 초보 wrote: > > 안녕하세요 > > MDI차일드폼에 showmodal로 일반폼을 보여주고 esc키...
-
-
- 델파이언
- •
- 2000.11.17 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.17 23:34델파이언 wrote: > 1. DBGride의 스크롤바를 없애려면 어떻게해야하나요? > 2. 현재 Record의 Seletion바...
-
- 황광일
- 2000.11.17 20:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태호
- •
- 2000.11.17 20:14
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.11.17 20:40Ping을 때려 보면 되져. ICMP 프로토콜을 공부해 보세여. ICS(Internet Component Suit)에 Ping관련 컴포...
-
- 착한남자
- 2000.11.17 20:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 최길남
- 2000.11.17 20:08
- 0 COMMENTS
- /
- 0 LIKES
요 에러메시지가 떴따...하면 windows Api에 인수를 넘길때 인수형이 안 맞는게
있다...라는 뜻입니다..
이부분-> WriteFile( FComPortHandle, DataPtr^, DataSize, nsent, nil ); <- 이부분
즉... 이런 경우는 주로 DELPHI3용으로 맹글었던거이 DELPHI4,5형으로 바뀌면서..
생기는 문제로서
INT64를 지원한 때부터 저런 에러메시지를 만나게 될 겁니다.
컴포넌트의 소스를 참고하셔서...
DataSize, nsent의 형이 Integer인지 DWORD인지...형을 살펴서..
같은 형으로 DataSize와 nSent를 맞춰 선언해주시면...
통과가 될 것입니다..
그럼..
초보 wrote:
> 언제서 부터인가 이 컴포넌트가 에러가 뜹니다.
>
> function TCommPortDriver.SendData( DataPtr: pointer; DataSize: integer ): nteger;
> var nToSend, nsent: integer;
> t1: longint;
> begin
> { 0 bytes sent }
> Result := 0;
> { Do nothing if not connected }
> if not Connected then
> exit;
> { Current time }
> t1 := GetTickCount;
> { Loop until all data sent or timeout occurred }
> while DataSize > 0 do
> begin
> { Get output buffer free space }
> nToSend := OutFreeSpace;
> { If output buffer has some free space... }
> if nToSend > 0 then
> begin
> { Don't send more bytes than we actually have to send }
> if nToSend > DataSize then
> nToSend := DataSize;
> { Send }
> 이부분-> WriteFile( FComPortHandle, DataPtr^, DataSize, nsent, nil ); <- 이부분
> { Update number of bytes sent }
> Result := Result + abs(nsent);
> { Decrease the count of bytes to send }
> DataSize := DataSize - abs(nsent);
> { Get current time }
> t1 := GetTickCount;
> { Continue. This skips the time check below (don't stop
> trasmitting if the FOutputTimeout is set too low) }
> continue;
> end;
> { Buffer is full. If we are waiting too long then
> invert the number of bytes sent and exit }
> if (GetTickCount-t1) > FOutputTimeout then
> begin
> Result := -Result;
> exit;
> end;
> end;
> end;
>
> [Error] ComDrv32.pas(611): Types of actual and formal var parameters must be identical
> [Warning] ComDrv32.pas(624): Combining signed and unsigned types - widened both operands
> [Fatal Error] dclusr50.dpk(34): Could not compile used unit '........Backupcomponentcomm32ComDrv32.pas'
>
> 이런 에러 메세지가....
>
> 그럼 답변 부탁드립니다.
>
>
> 혹시 이것에 대해 아시는 분없나요?
>
> 또는 해결책이나요...
> 고수님 리플부탁드립니다.