我陷入了编译器说的麻烦:
不兼容的类型:"AnsiChar"和"整数">
对于数组AnsiChar
最后一个元素,这是一个整数,它是 null 终止。如何解决?
C++代码:
static const BYTE myarray[] = { 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 0 };
SOCKET s;
// Usage example:
if(Send(s, (char *) myarray, sizeof(myarray), 0) <= 0)
return;
我在德尔福的尝试:
var
MyArray: array [0 .. MAX_PATH] of AnsiChar = ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 0 );
S: TSocket;
// Usage example:
send(S, MyArray, Length(MyArray), 0);
你几乎可以按照你的方式定义它:
var
MyArray: array[0..MAX_PATH] of AnsiChar = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', #0);
但是,您会收到一个错误,抱怨元素的数量,因此您必须添加大约250个额外的零才能完成它:
// Possible, but not necessary, see below
var
MyArray: array[0..MAX_PATH] of AnsiChar =
('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H',
'I', #0, #0, #0, #0, ....
...
...
... #0, #0, #0);
但是,这可以简单得多:
var
MyArray: array[0..MAX_PATH] of AnsiChar = 'ABCDEFGHI';
这种特殊的语法应该适用于大多数版本的Delphi,并且不会得到编译器错误。
对于 send(( 期间的长度,您必须使用 StrLen((,而不是 Length((:
send(S, MyArray, StrLen(MyArray) + 1, 0);
或者,您可以这样做:
var
Stg: AnsiString;
begin
Stg := 'ABCDEFGHI';
// Second parameter is untyped const, so use ^
send(S, PAnsiChar(Stg)^, Length(Stg) + 1, 0);
FWIW,#0
是序数值为 0 的字符。替代方案是:
Chr(0)
#0
^@ (meaning Control+@; ^A = #1 = Chr(1), ^M = #13, etc.)
以上每一项都具有相同的含义。
>您可以使用#0
将数字 0 表示为AnsiChar
。 但是,C++代码是将char
值分配给BYTE
数组,并且您不能将AnsiChar
隐式分配给 Delphi 中的Byte
,您需要类型转换。
C++代码到 Delphi 的直译看起来更像这样:
const
myarray[0..9] of Byte = (Ord('A'), Ord('B'), Ord('C'), Ord('D'), Ord('E'), Ord('F'), Ord('G'), Ord('H'), Ord('I'), 0);
// alternatively:
// myarray[0..9] of AnsiChar = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', #0);
var
s: SOCKET;
begin
...
// Usage example:
if (send(s, myarray, SizeOf(myarray), 0) <= 0) then
Exit;
...
end;