iBase.ru Forum

Код: Выделить всё

function LoadBlobFromFile(FileName: PChar; Blob: PBlob): PBlob; cdecl; export;
const
  MaxBufSize = $8192;
var
  BufSize, ReadLength, StreamSize: Integer;
  Buffer: PChar;
  Stream: TStream;
begin
  Result:=Blob;
  try
    Stream := TFileStream.Create(FileName, fmOpenRead or
                                                 fmShareDenyNone);
    try
      StreamSize := Stream.Size;

      if StreamSize > MaxBufSize then BufSize := MaxBufSize 
                                               else BufSize := StreamSize;
      GetMem(Buffer, BufSize);
      try
        while StreamSize <> 0 do begin
          if StreamSize > BufSize then ReadLength := BufSize 
                                             else ReadLength := StreamSize;
          Stream.ReadBuffer(Buffer^, ReadLength);

          Blob^.PutSegment(Blob^.BlobHandle, Buffer, ReadLength);

          Dec(StreamSize, ReadLength);
        end;
      finally
        FreeMem(Buffer, BufSize);
      end;
    finally
      Stream.Free;
    end;
  except
    {$Ifdef Debug}
      on E: Exception do begin
        Writeln(X, 'Exception in LoadBLObFromFile!!!');
        Writeln(X, 'FileName ', FileName);
        Writeln(X, E.Message);
        Flush(X);
      end;
    {$Endif}
  end;
end;

Код: Выделить всё

DECLARE EXTERNAL FUNCTION GET_IMAGE
    CSTRING(100),
    BLOB,
    BLOB
RETURNS PARAMETER 3
ENTRY_POINT 'LoadBlobFromFile' MODULE_NAME 'FreeUDFLib'

Код: Выделить всё

CREATE PROCEDURE "GetImage" (
    id integer)
returns (
    res integer)
as
declare variable imgid integer;
declare variable fname varchar(100);
declare variable path varchar(70);
declare variable img blob sub_type 0 segment size 16384;
BEGIN
    res=0;
    
    --получение пути к картинке
    SELECT "ImageId" FROM "Object" WHERE "Id1"=:id INTO :ImgId;
    select "ImageFile" FROM "Images" WHERE "Id1"=:ImgId INTO :fname;
    SELECT "Value" FROM "Options" WHERE "Param"='ImagePath' INTO :path;

    fname=:path||:fname;

    --получение самой картинки
    img=GET_IMAGE(:fname,:img);

    INSERT INTO "TempObject" ("Image") VALUES (:img);
END

Код: Выделить всё

declare variable img blob sub_type 0 segment size 16384; 

Код: Выделить всё

function LoadBlobFromFile(FileName: PChar; Blob: PBlob): PBlob;
procedure LoadBLObFromFile(FileName: PChar; Blob: PBlob);

Код: Выделить всё

img=GET_IMAGE(:fname,:img);

Код: Выделить всё

procedure LoadBLObFromFile(FileName: PChar; Blob: PBlob);

Код: Выделить всё

GET_IMAGE(:fname,:img);

Код: Выделить всё

select GET_IMAGE ('тут путь с именем файла') from rdb$database