oracle_excel

最新推荐文章于 2024-09-25 10:31:05 发布

ljah

最新推荐文章于 2024-09-25 10:31:05 发布

阅读量976

点赞数

文章标签： oracle parameters linux random insert excel

本文链接：https://blog.csdn.net/ljah/article/details/888428

版权

//写入
{$IFDEF LINUX}
with TOpenDialog.Create(nil) do
{$ELSE}
with TOpenPictureDialog.Create(nil) do
{$ENDIF}
    try
      InitialDir := '.';
      if Execute then begin
        with OraStoredProc do begin
          StoredProcName := 'ODAC_BLOB_Insert';
          PrepareSQL; // receive parameters

          Randomize;
          ParamByName('p_ID').AsInteger := Random(1000);
          ParamByName('p_Title').AsString := ExtractFileName(FileName);

          ParamByName('p_Pic').ParamType := ptInput; // to transfer Lob data to Oracle
          ParamByName('p_Pic').AsOraBlob.LoadFromFile('D:/dg.xls');
          Execute;
        end;
        Query.Refresh;
      end;
    finally
      Free;
    end;

//导出
{$IFDEF LINUX}
with TSaveDialog.Create(nil) do
{$ELSE}
with TSavePictureDialog.Create(nil) do
{$ENDIF}
    try
      InitialDir := '.';
      if not Query.EOF and Execute then
        TBlobField(Query.FieldByName('Pic')).SaveToFile(FileName);
    finally
      Free;
    end;