Обработка ответа от шлюза

[BDA]

Они разделены байтом 0x0a, т.е. #10. Попробуйте мой код выше, только замените #13 на #10.
Кстати, Вы не замазали HEX представление, но замазали текст, а это одно и то же. Лучше удалите скриншот
Перевод строки в разных системах - в UNIX как раз 0x0a, а в Windows - 0x0d 0x0a.

[eval]

Лучше удалите скриншот

поздно пить боржоми

[Dozent]

ДА спасибо большое вроде помогло)

[Dozent]

хм, тут при обратке выходит ошибка 'Invalid argument' на присвоение

const
  // Массив параметров
  sUserInfoParam: array [0 .. 8] of string = ('id', 'tariff_id', 'email',
    'phone', 'balance', 'date', 'senders', 'default_sender', 'any_sender');
...


function TfrmSenderSms.GetInfoUser(sAPI: string): variant;
var
  s, str: string;
  k, p, i: integer;
begin
  s := 'http://www.smspilot.ru/api.php?';
  s := s + 'apikey=' + Sender.URL.ParamsEncode(sAPI); // IpKey
  // s := s + '&charset=windows-1251'; //Ероглифи если не убрать

  // ed_request.Text := s;
  s := Sender.Get(s);
  // Обрабатываем параметры
  for i := 0 to 8 do
  begin

    k := pos(sUserInfoParam[i], s);
    if k = 0 then
      exit;
    inc(k, length(sUserInfoParam[i]));
    p := PosEx(#10, s, k);
    if p = 0 then
      p := length(s) + 1;
    str := copy(s, k + 1, p - k - 1);
    Result[i] := str;//ОШИБКА!!!!!!!!!1
  end;
end;

Хотя, трасировкой проверял, сначало там оставался символ конца строки, но шас остаётся чисто строка '7566' что не так?

[Dozent]

  Result := VarArrayCreate([0, 8], varVariant);
  for i := 0 to 8 do
  begin
    k := pos(sUserInfoParam[i], s);
    if k = 0 then
      exit;
    inc(k, length(sUserInfoParam[i]));
    p := PosEx(#10, s, k);
    if p = 0 then
      p := length(s) + 1;
    str := copy(s, k + 1, p - k - 1);

    Result[i] := str;
  end;

Забыл создать массив)

[BDA]

Осторожнее с if k = 0 then exit;. Эта команда выведет из процедуры досрочно, если не найдет строку.

[Dozent]

да) спасибо)

  Result := VarArrayCreate([0, 8], varVariant);
  for i := 0 to 8 do
  begin
    k := pos(sUserInfoParam[i], s);
    if k = 0 then
    begin
      Result := null;
      exit
    end;
    inc(k, length(sUserInfoParam[i]));
    p := PosEx(#10, s, k);
    if p = 0 then
      p := length(s) + 1;
    str := copy(s, k + 1, p - k - 1);
    Result[i] := str;
  end;