Разбивка PDU пакета на фрагменты

[prizrak1390]

Доброго времени суток. Есть вполне годный код, для отправки СМС через COM порт. Однако он рассчитан на отправку лишь одного коротенького СМС. Подскажите, как правильно его модифицировать, чтобы производилась разбивка одного большого PDU пакета, на маленькие? К сожалению на чтение мануалов особо времени нет.

var
  Lng, i:  Integer;
  LRead, LText, LMes, LTel, ANum: String;
begin
  ANum := ASms.Number;
  if (Length(ANum) mod 2) = 1 then
    ANum := ANum + 'F';

  for i := 1 to Length(ANum) do
    if i mod 2 = 0 then
      LTel := LTel + ANum[i] + ANum[i-1];

  LText := AnsiToUCS(ASms.Text);
  LMes := '00'; 
  LMes := LMes + '11'; 
  LMes := LMes + '00'; 
  LMes := LMes + IntToHex(Length(ASms.Number), 2); 
  LMes := LMes + '91'; 
  LMes := LMes + LTel; 
  LMes := LMes + '00'; 
  LMes := LMes + '08';
  LMes := LMes + 'C1'; 
  LMes := LMes + IntToHex(Trunc(Length(LText)/2),2); 
  LMes := LMes + LText; 
  Lng := Round((Length(LMes)-2)/2);

  WriteStr(Format(CMD_CMGS, [Lng]));
  WriteStr(LMes + END_CMD);
  Result := ReadToOK(LRead)

[prizrak1390]

Неужели никто не сталкивался с этим? Ну или подскажите 100% работающий компонент, кроме nrComm.

[nikolya1]

Для начал нужно разбить сообщение на блоки. Если текст английский, то размер блока 140 символов. Если русский, 70 символов. При кодировании одного блока в первые байты заносится информация о сумме блоков и индексе текущего блока. Составляем несколько полноценных сообщений из этих блоков (отправитель, получатель, кодировки), и шлём их последовательно в порт. Я могу помочь в переделке кода, если хотите. Пишите на мэил nikolya.ponamorenko собака мэил ру. Я думаю, о помощи за пиво договоримся?

[prizrak1390]

nikolya1, пить - здоровью вредить)) Я думаю мое предложение высланное по почте должно лучше заинтересовать))

[nikolya1]

Я считаю, что в своей жизни нужно не в чём себе не отказывать. Ответил на почту.