SMS Senden über AT-Kommandos

[Gehstock]

Achso ihr meint #13 #10 ist dabei aber auch ohne gehts net hatte ich schon versucht

Delphi-Quellcode:

Procedure TForm1.SENDcmd2;
var BytesWritten: DWORD;
  d: array[1..200] of Char;
  BytesRead: DWORD;
  i: Integer;
begin
  s := s + #13#10;
  WriteFile(ComFile, s[1], Length(s), BytesWritten, nil);
//  Result1 := '';
  if not ReadFile(ComFile, d, SizeOf(d), BytesRead, nil) then
    begin
      StatusBar.Panels[0].text:='Nicht Verbunden';
        exit;
    end;
  s := '';
  for i := 1 to BytesRead do
    s := s+d[I];
  Result1 := s;
end;