Problems with BLOB stream
lazarus / 63-Database

----------------------------------------------------------------------
spenna · 2014-08-06 08:57

I'm trying to load very large BLOBS to SQLServer database, using
Lazrus & ZeosLib.
I need to upload the files in chunks, so I've tryed this source, wich
works perfectly in Delphi:

procedure TForm1.SaveFileToBlob(Filename: TFilename);
const
  bufSize = 16384;
var
  sStream   : TFileStream;
  pBuf      : Pointer;
  cnt,totCnt: Integer;
begin
  // total bytes reset
  totCnt:=0;
  // open the file stream for reading
  sStream:=TFileStream.Create(Filename, fmOpenRead or
fmShareDenyWrite);
  try
    try
      // reserve space for buffer
      GetMem(pBuf, bufSize);
      // read first chunk
      cnt:=sStream.Read(pBuf^, bufSize);
      totCnt:=cnt;

      while (cnt > 0) do
        begin
          Application.ProcessMessages;
          qry_Blob.Close;
          qry_Blob.ParamByName('id').AsInteger:=1;
          qry_Blob.ParamByName('data').SetBlobData(pBuf,cnt);
          //
          qry_Blob.ExecSQL;
          // read next chunk
          cnt:=sStream.Read(pBuf^, bufSize);
          inc(totCnt,cnt);
          // show total bytes processed
          Label1.Caption:=Format('Bytes caricati: %d - %d MB',[totCnt,
totCnt div (1024*1204)]);
          Form1.Refresh;
          Application.ProcessMessages;
        end;
    finally
      FreeMem(pBuf, bufSize);
    end;
  finally
    sStream.Free;
  end;

  ShowMessage('Done');
end;

When I put this in Lazarus I get a SEGMENTATION FAULT error.

Someone can help? Any idea?