{DECLARE EXTERNAL FUNCTION DTOA1
    CSTRING(16384),
    CSTRING(16384)
RETURNS PARAMETER 2
ENTRY_POINT 'DToA1' MODULE_NAME 'DToA.dll'; }
procedure DToA1({var BlobIn: TBlob;} DocaStr: PChar; cString: PChar); cdecl; export;
var  DecompressS, DecodeS, fs: string; // bLen: integer;  buffer:PChar;
    InStream, OutStream: TStringStream; RE: TRichEdit; f:TForm;
const MAX_RESULT_LEN = 16384;    // на 32767 не работает, возвращает пустую строку
begin
 try
  cString[0] := #0;
//  with BlobIn do if (not Assigned(Handle)) or (TotalLength = 0) then  Exit;
//  bLen := BlobIn.TotalLength;

//  GetMem(buffer, bLen + 2);
//  buffer[bLen] := #0;
  try
//  FillBuffer(blob, buffer, bLen - 1);
  DecodeS:=DecodeBase64(DocaStr);
  InStream :=TStringStream.Create(DecodeS);
  OutStream:=TStringStream.Create(fs);
  F:=TForm.Create(nil);
  RE:=TRichEdit.Create(nil);
  RE.Parent:=F;
  RE.PlainText:=False;
  InStream.position := 0;
  DecompressStream(InStream,OutStream);
  DecompressS:=OutStream.DataString;
  HTMLtoRTF(DecompressS, RE);
 DecompressS := GetRTFText(RE);
  try
    if (Length(DecompressS) >= MAX_RESULT_LEN) then
     begin
      DecompressS := Copy(DecompressS, 1, MAX_RESULT_LEN - 1);
     end;
     StrPCopy(cString, DecompressS);
   finally
   end;
  finally
   InStream.Free;
   OutStream.Free;
   RE.Free;
   F.Free;
//   FreeMem(buffer);
  end;
 except end;
end;     { работает   }

procedure DToA3(var BlobIn: TBlob;  cString: PChar); cdecl; export;
var  DecompressS, DecodeS, fs: string;  bLen: integer;  DocaStr: PChar;
    InStream, OutStream: TStringStream; RE: TRichEdit; f:TForm;
const MAX_RESULT_LEN = 16384;
begin
 try
  cString[0] := #0;
  with BlobIn do if (not Assigned(Handle)) or (TotalLength = 0) then  Exit;
  bLen := BlobIn.TotalLength;

  GetMem(DocaStr, bLen + 2);
  DocaStr[bLen] := #0;
  try
  FillBuffer(BlobIn, DocaStr, bLen - 1);
  DecodeS:=DecodeBase64(DocaStr);  //!!  Тут ещё работает, DecodeS правильная
  InStream :=TStringStream.Create(DecodeS);
  OutStream:=TStringStream.Create(fs);
  F:=TForm.Create(nil);
  RE:=TRichEdit.Create(nil);
  RE.Parent:=F;
  RE.PlainText:=False;
  InStream.position := 0;
  DecompressStream(InStream,OutStream);
  DecompressS:=OutStream.DataString;
  HTMLtoRTF(DecompressS, RE);
 DecompressS := GetRTFText(RE);
  try
    if (Length(DecompressS) >= MAX_RESULT_LEN) then
     begin
      DecompressS := Copy(DecompressS, 1, MAX_RESULT_LEN - 1);
     end;
     StrPCopy(cString, DecompressS);
   finally
   end;
  finally
   InStream.Free;
   OutStream.Free;
   RE.Free;
   F.Free;
   FreeMem(DocaStr);
  end;
 except end;
end;     { не работает   } 

procedure BlobToCString(var blob: TBlob; cString: PChar); cdecl; export; 
var buffer:PChar;  SResult: string;  bLen: integer;
const MAX_RESULT_LEN = 32767;
begin
 try
  cString[0] := #0;
  with blob do if (not Assigned(Handle)) or (TotalLength = 0) then Exit;
  bLen := blob.TotalLength;
  GetMem(buffer, bLen + 2);
  buffer[bLen] := #0;
  try
   FillBuffer(blob, buffer, bLen - 1);
   try
    SResult :=  buffer; 
    if (Length(SResult) >= MAX_RESULT_LEN) then SResult := Copy(SResult, 1, MAX_RESULT_LEN - 1);
    StrPCopy(cString, SResult);
   finally
   end;
  finally
   FreeMem(buffer)
  end;
 except end;
end;

function FillBuffStr(var blob: TBlob): string;
var Buffer: PChar;
  EndOfBlob: WordBool;
  MaxBufSize: integer;
  GotLength: integer;
begin
  Result:='';
  try
    if (Assigned(Blob.Handle)) or (Blob.TotalLength > 0) then // don't do anything is blob = 0
      begin
        // add fmShare... option to fmCreate as needed
        MaxBufSize:=Blob.MaxSegLength;
        GetMem(Buffer, MaxBufSize + 1);
        try
          repeat
            GotLength := 0; { !?! }

            with BLOb do
              EndOfBLOb := GetSegment(Handle, Buffer, MaxBufSize, GotLength);
            if (GotLength > 0) then {?}
              Result:=Result+StrPas(Buffer);
          until EndOfBLOb = True;

        finally
          FreeMem(Buffer, MaxBufSize + 1);
        end;
      end;
  except
  end;
end;

procedure FillBuffStr(var blob: TBlob;var str:TStringStream);
var Buffer: PChar;
  EndOfBlob: WordBool;
  MaxBufSize: integer;
  GotLength,TL: integer;
begin
  //Result:='';
  TL:=0;
  try
    if (Assigned(Blob.Handle)) or (Blob.TotalLength > 0) then // don't do anything is blob = 0
      begin
        // add fmShare... option to fmCreate as needed
        MaxBufSize:=Blob.MaxSegLength;
        GetMem(Buffer, MaxBufSize + 1);
        try
          repeat
            GotLength := 0; { !?! }

            with BLOb do
              EndOfBLOb := GetSegment(Handle, Buffer, MaxBufSize, GotLength);
            //if (GotLength > 0) then {?}
              str.WriteBuffer(Buffer^, GotLength);
            //Result:=Result+StrPas(Buffer);
              TL:=TL+ GotLength;
          until (EndOfBLOb = True) and (TL>=BLOb.TotalLength);

        finally
          FreeMem(Buffer, MaxBufSize + 1);
        end;
      end;
  except
  end;
  str.Seek(0,soBeginning) ;
end;