阿
阿虫
Unregistered / Unconfirmed
GUEST, unregistred user!
IF CHECKBOX1 CHECKED then
RICHEDIT。TEXT:=‘AAA’//‘AAA’是指我要发送的命令。
k:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i:=0 to (k div 2)-1do
s1:=s1+chr(strtoint('$'+copy(richedit1.text,2*i+1,2)));
p:=Pchar(s1);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
IF CHECKBOX2 CHECKED then
RICHEDIT。TEXT:=‘BBB’//‘BBB’是指我要发送的命令。
k:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i:=0 to (k div 2)-1do
s1:=s1+chr(strtoint('$'+copy(richedit1.text,2*i+1,2)));
p:=Pchar(s1);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
。。。。。。。
k:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i:=0 to (k div 2)-1do
s1:=s1+chr(strtoint('$'+copy(richedit1.text,2*i+1,2)));
p:=Pchar(s1);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
RICHEDIT。TEXT:=‘AAA’//‘AAA’是指我要发送的命令。
k:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i:=0 to (k div 2)-1do
s1:=s1+chr(strtoint('$'+copy(richedit1.text,2*i+1,2)));
p:=Pchar(s1);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
IF CHECKBOX2 CHECKED then
RICHEDIT。TEXT:=‘BBB’//‘BBB’是指我要发送的命令。
k:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i:=0 to (k div 2)-1do
s1:=s1+chr(strtoint('$'+copy(richedit1.text,2*i+1,2)));
p:=Pchar(s1);
CopyMemory(@sbuf,p,Strlen(p));
senddata;
。。。。。。。
k:=length(richedit1.text);
FillMemory(@sbuf,255,0);
for i:=0 to (k div 2)-1do
s1:=s1+chr(strtoint('$'+copy(richedit1.text,2*i+1,2)));
p:=Pchar(s1);
CopyMemory(@sbuf,p,Strlen(p));
senddata;