Форум программистов [Powered by Invision Power Board]

Код

unit TransferParser;

interface

uses
  Base64, CryptionMod, Dialogs, SysUtils, Classes;

type
  TTransferChunk = record
    param: array of string;
  end;

function Outpacked(OutText: TTransferChunk): string;
function Inpacked(ReceivedText: string): TTransferChunk;

implementation

var
  LastNotCompleted: Boolean;
  TempTransfered: TTransferChunk;

function Inpacked(ReceivedText: string): TTransferChunk;
var
  i: Integer;
  HasStart: Boolean;
  HasEnd: Boolean;
begin
  HasStart:= False;
  HasEnd:= False;

  if pos('<',ReceivedText)<>0 then
  begin
    HasStart:= True;
    Delete(ReceivedText,1,1);
  end;

  if pos('>',ReceivedText)<>0 then
  begin
    HasEnd:= True;
    Delete(ReceivedText,Length(ReceivedText),1);
  end;

  if HasStart then SetLength(TempTransfered.param,0);

  if LastNotCompleted then
  begin
    if (pos('|',ReceivedText)<>0) then
    begin
       //Тут бывает вот эиа ошибка изза того что TempTransfered.param= nil
      begin
        TempTransfered.param[Length(TempTransfered.param)-1]:= Decode(TempTransfered.param[Length(TempTransfered.param)-1]+Copy(ReceivedText,1,pos('|',ReceivedText)-1));
        Delete(ReceivedText,1,pos('|',ReceivedText));
        LastNotCompleted:= False;
      end;
    end
    else
    begin
      TempTransfered.param[Length(TempTransfered.param)-1]:= TempTransfered.param[Length(TempTransfered.param)-1]+ReceivedText;
      ReceivedText:= '';
    end;
  end;

  while (pos('|',ReceivedText)<>0) do
  begin
    SetLength(TempTransfered.param,Length(TempTransfered.param)+1);
    TempTransfered.param[Length(TempTransfered.param)-1]:= Decode(Copy(ReceivedText,1,pos('|',ReceivedText)-1));
    Delete(ReceivedText,1,pos('|',ReceivedText));
  end;

  if (ReceivedText<>'') then
  begin
    SetLength(TempTransfered.param,Length(TempTransfered.param)+1);
    TempTransfered.param[Length(TempTransfered.param)-1]:= ReceivedText;
    ReceivedText:= '';
    LastNotCompleted:= True;
  end;

  if HasEnd then
  begin
    Result:= TempTransfered;
    SetLength(TempTransfered.param,0);
  end
    else SetLength(Result.param,0);

end;

function Outpacked(OutText: TTransferChunk): string;
var
  i: integer;
  Sendtext: String;
  s1,s2:pChar;
begin
  for i:=0 to Length(OutText.param)-1 do
  begin
    Sendtext:= Sendtext+Encode(OutText.param[i])+'|';
  end;
  Result:= '<'+Sendtext+'>';
end;