Devart Forums

Code: Select all

var
  BlobField: TBlobField;
...
  BlobField := MyQuery.FieldByName('PDFField') as TBlobField;
  BlobField.LoadFromFile(FileName);

Code: Select all

  TBlobField(MyQuery.FieldByName('PDFField')).SaveToFile(FileName);

Code: Select all

function Write_BLOB(Plik:string): LongInt;
var
  UQ_Blob : TUniQuery;
begin
  Result:=0;
  if (Plik='') or (not FileExists(Plik)) then EXIT;

  try
    UQ_Blob:=TUniQuery.Create(nil);
    UQ_Blob.Connection:=UniConnection1;
    UQ_Blob.SQL.Clear;
    UQ_Blob.SQL.Add('SELECT * FROM t_blob  WHERE id  = 0' );
    UQ_Blob.Options.DefaultValues:=true;
    UQ_Blob.Open;
    UQ_Blob.Append;
    
    TBlobField(UQ_Blob.FieldByName('P_Blob_Data')).LoadFromFile(Plik);

    UQ_Blob.Post;
    // UQ_Blob.RefreshRecord;  //the id field is serial type (autoinc), in PostrgeSQL it is updated after post  
    Result:=UQ_Blob.FieldByName('id').AsInteger;

    UQ_Blob.Close;
    UQ_Blob.Free;

  except
    msgBox('Problem ....');
  end;
end;

Code: Select all

program Test_PDF;
{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Uni,
  MySQLUniProvider;

var
  UniConnection: TUniConnection;
  UniQuery: TUniQuery;

begin
  UniConnection := TUniConnection.Create(nil);
  try
    UniConnection.ProviderName := 'MySQL';
    UniConnection.Server := Server;
    UniConnection.Port := Port;
    UniConnection.Username := UserName;
    UniConnection.Password := Password;
    UniConnection.Database := Database;
    UniConnection.Connect;
    UniConnection.ExecSQL('CREATE TABLE IF NOT EXISTS TEST_PDF (ID INT(11) NOT NULL AUTO_INCREMENT PRIMARY KEY, PDF_FIELD LONGBLOB);');
    UniQuery := TUniQuery.Create(nil);
    try
      UniQuery.Connection := UniConnection;
      UniQuery.SQL.Text := 'SELECT * FROM TEST_PDF';
      UniQuery.Open;
      UniQuery.Append;
      TBlobField(UniQuery.FieldByName('PDF_FIELD')).LoadFromFile(FileName);
      UniQuery.Post;
      WriteLn('Append Ok');
      TBlobField(UniQuery.FieldByName('PDF_FIELD')).SaveToFile(FileName);
      WriteLn('Save Ok');
    finally
      UniQuery.Free;
    end;
  finally
    UniConnection.Free;
  end;
end.