Delay是自定义的函数: //******延时 procedure TMainForm.Delay(msecs:integer); var FirstTickCount:longint; begin FirstTickCount:=GetTickCount; repeat Application.ProcessMessages; {allowing access to other controls etc.} until ((GetTickCount-FirstTickCount) >= Longint(msecs)); end;延时多长时间合适自己改改看。
SendLen := (Length(PduStr)-2) div 2; //长度统一从11算起
SendCommData('AT+CMGS='+IntToStr(SendLen)); // #$1A=^Z
Delay(700); //你这里有没有延时?
SendCommData(PduStr + #26);
//******延时
procedure TMainForm.Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages; {allowing access to other controls etc.}
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;延时多长时间合适自己改改看。