阿
阿虫
Unregistered / Unconfirmed
GUEST, unregistred user!
我用SPCOMM写了一段232通讯程序，如下，可发现我要发送的数据发到串口上时，全变成了
零，我请教了一位朋友，他要我将SPCOMM的属性‘replacedchar=#0’设为空试试，可我发现没用，
设为空后在运行时会自动改回来的，请问大家我的程序那里有问题呀！急急急！
var
Form1: TForm1;
VIEWSTRING,s,s100:STRING;
I100,k100:INTEGER;
RBUF,SBUF:ARRAY[1..255] OF BYTE;
p
char;
implementation
{$R *.DFM}
procedure TForm1.onshow(Sender: TObject);
begin
COMM1.STARTCOMM;
end;
procedure TForm1.onclose(Sender: TObject; var Action: TCloseAction);
begin
COMM1.STOPCOMM;
end;
PROCEDURE SENDDATA;
VAR
I:INTEGER;
COMMFLG:BOOLEAN;
BEGIN
VIEWSTRING:='';
COMMFLG:=TRUE;
FOR I100:=0 TO (k100 div 2)-1 DO
BEGIN
IF NOT FORM1.COMM1.WRITECOMMDATA(@SBUF,1) THEN
BEGIN
COMMFLG:=FALSE;
BREAK;
END;
SLEEP(0);
VIEWSTRING:=VIEWSTRING+INTTOHEX(SBUF,2)+''; END;
VIEWSTRING:='发送'+VIEWSTRING;
FORM1.MEMO1.LINES.ADD(VIEWSTRING);
FORM1.MEMO1.LINES.ADD('');
IF NOT COMMFLG THEN MESSAGEDLG('发送失败',mterror,[mbyes],0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3,s4,s5:string;
k,k1,k0,i:integer;
begin
k:=strtoint(edit1.text);
s:=formatfloat('000000000000',k);
k1:=length(s); //求S的字符长度。
for i:=1 to( k1 div 2) do
s1:=s1 +copy(s,k1-2*i+1,2);
for i := 0 to length(s1) div 2 -1 do
begin
k0 := (K0 + strtoint(IntToStr(StrToInt64('$' + copy(s1, 2 * i - 1, 2)))));
end;
s2:=inttohex(strtoint64(inttostr(k0+555)),0);
s3:=stringofchar('0',2-length(s2))+s3 ;
s4:=s3+s2;
s5:=copy(s4,length(s4)-1,2);
begin
if radiobutton1.checked then
richedit1.text:=('FE'+'FE'+'68'+s1+'68'+'01'+'02'+'65'+'F3'+s5+'16') else//我要发的数据。
richedit1.text:='' ;
end;
begin
k100:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i100:=0 to (k100 div 2)-1 do
s100:=s100+chr(strtoint('$'+copy(richedit1.text,2*i100+1,2)));
p:=Pchar(s100);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
end;
end;
零，我请教了一位朋友，他要我将SPCOMM的属性‘replacedchar=#0’设为空试试，可我发现没用，
设为空后在运行时会自动改回来的，请问大家我的程序那里有问题呀！急急急！
var
Form1: TForm1;
VIEWSTRING,s,s100:STRING;
I100,k100:INTEGER;
RBUF,SBUF:ARRAY[1..255] OF BYTE;
p
char;implementation
{$R *.DFM}
procedure TForm1.onshow(Sender: TObject);
begin
COMM1.STARTCOMM;
end;
procedure TForm1.onclose(Sender: TObject; var Action: TCloseAction);
begin
COMM1.STOPCOMM;
end;
PROCEDURE SENDDATA;
VAR
I:INTEGER;
COMMFLG:BOOLEAN;
BEGIN
VIEWSTRING:='';
COMMFLG:=TRUE;
FOR I100:=0 TO (k100 div 2)-1 DO
BEGIN
IF NOT FORM1.COMM1.WRITECOMMDATA(@SBUF,1) THEN
BEGIN
COMMFLG:=FALSE;
BREAK;
END;
SLEEP(0);
VIEWSTRING:=VIEWSTRING+INTTOHEX(SBUF,2)+''; END;
VIEWSTRING:='发送'+VIEWSTRING;
FORM1.MEMO1.LINES.ADD(VIEWSTRING);
FORM1.MEMO1.LINES.ADD('');
IF NOT COMMFLG THEN MESSAGEDLG('发送失败',mterror,[mbyes],0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3,s4,s5:string;
k,k1,k0,i:integer;
begin
k:=strtoint(edit1.text);
s:=formatfloat('000000000000',k);
k1:=length(s); //求S的字符长度。
for i:=1 to( k1 div 2) do
s1:=s1 +copy(s,k1-2*i+1,2);
for i := 0 to length(s1) div 2 -1 do
begin
k0 := (K0 + strtoint(IntToStr(StrToInt64('$' + copy(s1, 2 * i - 1, 2)))));
end;
s2:=inttohex(strtoint64(inttostr(k0+555)),0);
s3:=stringofchar('0',2-length(s2))+s3 ;
s4:=s3+s2;
s5:=copy(s4,length(s4)-1,2);
begin
if radiobutton1.checked then
richedit1.text:=('FE'+'FE'+'68'+s1+'68'+'01'+'02'+'65'+'F3'+s5+'16') else//我要发的数据。
richedit1.text:='' ;
end;
begin
k100:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i100:=0 to (k100 div 2)-1 do
s100:=s100+chr(strtoint('$'+copy(richedit1.text,2*i100+1,2)));
p:=Pchar(s100);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
end;
end;