TOPIC:

ParamByName('data').SetBlobData(pBuf,cnt);

ParamByName('data').LoadFromStream(AStream, ftBlob/ftMemo/ftWideMemo);

function TForm1.SaveFileToBlob(Filename: TFilename; bufSize: integer = 256): integer;
type
  TBuffer = string;
var
  sStream: TFileStream;
  pBuf: TBuffer;
  cnt, i: integer;
  sSegment: string;
begin
  // chunks size
  bufSize := bufSize * 1024;

  Result:=0;
  // open the file stream for reading
  sStream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
  try
    // set buffer length and read first chunk
    SetLength(pBuf, bufSize);
    cnt := sStream.Read(PChar(pBuf)^, bufSize);
    // re-set buffer length with bytes effectively read
    SetLength(pBuf, cnt);
     
    while (cnt > 0) do
    begin
      Application.ProcessMessages;
    
      qry_Blob.Close;
      // build binary chunk
      sSegment := '0x';
      for i := Low(pBuf) to high(pBuf) do
        sSegment := sSegment + IntToHex(Ord(pBuf[i]), 2);
      // create the SaveBlob query and execute parameters binding
      qry_Blob.SQL.Text := Format('exec SaveBlob %d, %s, %s', [1, sSegment, 'NULL']);
      qry_Blob.ExecSQL;

      // read next chunk
      cnt := sStream.Read(PChar(pBuf)^, bufSize);
      SetLength(pBuf, cnt);
      // increase result 
      Inc(Result, cnt);        
      {$ifdef debug}
        Label1.Caption := Format('Bytes caricati: %d - %d MB', [Result, Result div (1024 * 1204)]);
        Form1.Refresh;
        Application.ProcessMessages;
      {$endif}
    end;
  finally
    sStream.Free;
  end;

  {$ifdef debug}
  ShowMessage('Done');
  {$endif}
end;

-- table where to save file
CREATE TABLE BlobTest
(
	Id int,
	Data image
);
GO

-- procedure to update BlobTest table
create procedure SaveBlob @id int, @data image, @append bit = 1
as
begin
  declare @ptr binary(16)
  -- TESTING -> append always to record id = 1 
  -- (must be modified...)
  set @id=1;
  set @Append = 1;
  -- 
  
  -- create a record (if not exists) with an empty BLOB (not null!)
  if (select COUNT(*) from BlobTest where Id=@id) = 0
    insert into BlobTest
       select @id, ''

  -- sets the text pointer
  select @ptr = TEXTPTR(data) from  BlobTest where id = @id

  -- append the data to the record (using @ptr)
  if @Append = 1
    updatetext BlobTest.data @ptr NULL 0 @data
  else -- never reached (in testing @Apped always = 1)
     writetext BlobTest.data @ptr @data
end;