Добрый день! Подскажите пожалуйста как в таблицу MS SQL помещать доковские файлы а потом считывать их от туда. Использутся Delphi6, ADOQuery.

Код

q.sql.add('INSERT INTO fs ( Data)');  q.sql.add('VALUES( :Data)');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('Data').LoadFromFile(Name, ftGraphic);

Спасибо! А на сервере в таблице какой тип поля должен быть? Binary? А считывать? И почему ftGraphic? Я же кладу вордовский документ!

Это сообщение отредактировал(а) Garmahis - 9.2.2005, 13:12

Цитата(Garmahis @ 9.2.2005, 01:55)

Binary?

Да

Цитата(Garmahis @ 9.2.2005, 01:55)

А считывать?

Код

q.sql.text:='Select ...' (q.fieldbyname('MyField') as TBlobField).SaveToFile... (q.fieldbyname('MyField') as TBlobField).SaveToStream...

Цитата(Garmahis @ 9.2.2005, 01:55)

И почему ftGraphic?

Это просто двоичные данные не важно какого рода.

Спасибо!

Не за что! Всегда рады помочь!

Цитата(Vit @ 8.2.2005, 22:35)

Код  q.sql.add('INSERT INTO fs ( Data)');  q.sql.add('VALUES( :Data)');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('Data').LoadFromFile(Name, ftGraphic);

Везде приводят этот пример, но у меня не работает:

if not OpenDialog1.Execute then exit;
DataModule2.qtemp.sql.Clear;
DataModule2.qtemp.sql.add('UPDATE proizvoditel SET proizv_file_price = ');
DataModule2.qtemp.sql.add('(:Data), country=2 where id=1');
DataModule2.qtemp.Parameters.ParseSQL(DataModule2.qtemp.sql.text, true);
DataModule2.qtemp.Parameters.ParamByName('Data').LoadFromFile(OpenDialog1.FileName, ftGraphic);
//showmessage(DataModule2.qtemp.sql.Text);
DataModule2.qtemp.ExecSQL;


Выдает ошибку String or binary data would be truncated

СУБД MSSQL7, Delphi 7

вообще способ загонять файл в базу запросом мне очень нравится. считаю, что он лучше всех. Но не получается.

Есть идея в собственной процедуре заменять спец символы, например ' " tab на /' /". такое уже делал, когда загонял картинки в MySQL запросом на удаленную машину, но зачем мучаться, когда все говорят, что это должно рботать. такк что заранее благодарен

(:Data), - скобки тут не нужны:

Код

DataModule2.qtemp.sql.add('UPDATE proizvoditel SET proizv_file_price = :Data, country=2 where id=1');

Цитата(Vit @ 21.2.2005, 05:37)

(:Data), - скобки тут не нужны: Код DataModule2.qtemp.sql.add('UPDATE proizvoditel SET proizv_file_price = :Data, country=2 where id=1');

я со скобками и без скобок пробовал.
я вообще не понимаю, откуда могу расти ноги у ошибки
EOleExeption : String or binary data would be truncated.

Дату и другое вставлет запросм с параметрами нормально, не хочет вставлять именно блоб, то есть файл

может кто кинуть пример ? ( пример, который работал )

Это сообщение отредактировал(а) vn31 - 21.2.2005, 10:50

Поделится кто маленьким примером сохранения файла запросом в блоб поле ?

Заранее спасибо за помощь

Какой тип поля Data?

Очень странно всё это, пример абсолютно рабочий...

Вот моя программа, которая эмулирует файловую систему (дерево каталогов) на MS SQL Server 2000 и позволяет читать и писать файлы:

Код

unit uVirtFile; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, DB, ADODB, StdCtrls, Buttons, ImgList,  ShellCtrls, ExtCtrls; type  TForm1 = class(TForm)    ADOConnection: TADOConnection;    q: TADOQuery;    StatusBar: TStatusBar;    SaveDialog: TSaveDialog;    OpenDialog: TOpenDialog;    Panel1: TPanel;    SpeedButton4: TSpeedButton;    SpeedButton3: TSpeedButton;    SpeedButton5: TSpeedButton;    SpeedButton6: TSpeedButton;    SpeedButton7: TSpeedButton;    SpeedButton8: TSpeedButton;    Panel2: TPanel;    Panel3: TPanel;    ListBox: TListBox;    Panel4: TPanel;    Edit1: TEdit;    SpeedButton1: TSpeedButton;    SpeedButton2: TSpeedButton;    Panel5: TPanel;    ShellTreeView1: TShellTreeView;    ShellListView1: TShellListView;    SpeedButton9: TSpeedButton;    ComboBox: TComboBox;    SpeedButton10: TSpeedButton;    procedure Button1Click(Sender: TObject);    procedure ListBoxDblClick(Sender: TObject);    procedure FormActivate(Sender: TObject);    procedure SpeedButton1Click(Sender: TObject);    procedure SpeedButton2Click(Sender: TObject);    procedure SpeedButton3Click(Sender: TObject);    procedure SpeedButton4Click(Sender: TObject);    procedure SpeedButton5Click(Sender: TObject);    procedure SpeedButton6Click(Sender: TObject);    procedure ListBoxClick(Sender: TObject);    procedure SpeedButton7Click(Sender: TObject);    procedure SpeedButton8Click(Sender: TObject);    procedure ListBoxDragOver(Sender, Source: TObject; X, Y: Integer;      State: TDragState; var Accept: Boolean);    procedure ListBoxDragDrop(Sender, Source: TObject; X, Y: Integer);    procedure ShellListView1DragOver(Sender, Source: TObject; X,      Y: Integer; State: TDragState; var Accept: Boolean);    procedure ShellListView1DragDrop(Sender, Source: TObject; X,      Y: Integer);    procedure SpeedButton9Click(Sender: TObject);    procedure SpeedButton10Click(Sender: TObject);  private    function v_AddDir(Parent: integer; Name: string): integer;    procedure v_Dir(Id: integer; List: TStrings);    function v_SaveFile(Parent: integer; Name: string): integer;    procedure v_LoadFile(id: integer; Name: string);    function v_GetParent(Id: integer): integer;    function v_GetPath(id: integer): string;    function v_GetFolderId: integer;    procedure v_Delete(id: integer);    procedure v_RenameFile(id: integer; NewName: string);    procedure RestorePosition(i: integer);    function FindById(Id: Integer): integer;    { Private declarations }  public    { Public declarations }  end; Type TFileInfo=record      Id:integer;      Parent:integer;      Level:integer;      ItemType:integer;      ItemSize:integer;      ItemName:string[255];     End;     PFileInfo=^TFileInfo; var  Form1: TForm1; implementation {$R *.dfm} Function TForm1.v_GetPath(id:integer):string;  var parent:integer; begin  Parent:=id;  Result:='';  q.sql.clear;  q.sql.add('Select Parent, ItemName From fs Where ItemId=:ItemId');  q.Parameters.ParseSQL(q.sql.text, true);  while Parent>=0 do    begin      q.Parameters.ParamByName('ItemId').Value:=Parent;      q.open;      if Result<>'' then        Result:=q.FieldByName('ItemName').asString+'/'+Result      else        Result:=q.FieldByName('ItemName').asString;      Parent:=q.FieldByName('Parent').asInteger;      q.close;    end;  Result:='/'+Result; end; Function TForm1.v_AddDir(Parent:integer;Name:string):integer; begin  q.sql.clear;  q.sql.add('Declare @Parent int');  q.sql.add('Declare @ItemLevel int');  q.sql.add('Set @Parent=:Parent');  q.sql.add('if @Parent>=0 Select @ItemLevel=ItemLevel from fs where ItemId=@Parent');  q.sql.add(' else Set @ItemLevel=-1');  q.sql.add('Set @ItemLevel=@ItemLevel+1');  q.sql.add('INSERT INTO fs (Parent, ItemLevel, ItemType, ItemName)');  q.sql.add('VALUES(@Parent, @ItemLevel, 1, :ItemName)');  q.sql.add('Select @@Identity');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('Parent').Value:=Parent;  q.Parameters.ParamByName('ItemName').Value:=Name;  q.ExecSQL; end; Function TForm1.v_GetParent(Id:integer):integer; begin  q.sql.clear;  q.sql.add('Select Parent From fs Where ItemId=:ItemId');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('ItemId').Value:=Id;  q.open;  Result:=q.fields[0].asInteger;  q.close; end; Procedure TForm1.v_Dir(Id:integer;List:TStrings);  var Info:PFileInfo; begin  List.clear;    //FreeMem(PropList);  q.sql.clear;  q.sql.add('Select * From fs Where Parent=:Parent');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('Parent').Value:=Id;  q.Open;  if q.fieldByName('Parent').asInteger<>-1 then    begin      GetMem(Info, SizeOf(TFileInfo));      Info^.Id:=Id;      Info^.Parent:=0;      Info^.Level:=q.fieldByName('ItemLevel').asInteger-1;      Info^.ItemType:=0;      Info^.ItemName:='..';      List.Objects[List.add('..')]:=Pointer(Info);    end;  while not q.eof do    begin      GetMem(Info, SizeOf(TFileInfo));      Info^.Id:=q.fieldByName('ItemId').asInteger;      Info^.Parent:=q.fieldByName('Parent').asInteger;      Info^.Level:=q.fieldByName('ItemLevel').asInteger;      Info^.ItemType:=q.fieldByName('ItemType').asInteger;      Info^.ItemName:=q.fieldByName('ItemName').asString;      Info^.ItemSize:=q.fieldByName('ItemSize').asInteger;      Case Info^.ItemType of        1:List.Objects[List.add('>'+q.fieldByName('ItemName').asString)]:=Pointer(Info);        2:List.Objects[List.add(q.fieldByName('ItemName').asString)]:=Pointer(Info);      End;      q.next;    end;  q.close; end; Function TForm1.v_SaveFile(Parent:integer;Name:string):integer;  Function GetFileSize(FileName:string):integer;   var sr:TSearchRec;  begin    Result:=0;    if FindFirst(FileName, faAnyFile, sr)=0 then Result:=sr.size;    FindClose(sr);  end; begin  q.sql.clear;  q.sql.add('Declare @Parent int');  q.sql.add('Declare @ItemLevel int');  q.sql.add('Set @Parent=:Parent');  q.sql.add('if @Parent>=0 Select @ItemLevel=ItemLevel from fs where ItemId=@Parent');  q.sql.add(' else Set @ItemLevel=-1');  q.sql.add('Set @ItemLevel=@ItemLevel+1');  q.sql.add('INSERT INTO fs (Parent, ItemLevel, ItemType, ItemName, ItemSize, Data)');  q.sql.add('VALUES(@Parent, @ItemLevel, 2, :ItemName, :ItemSize, :Data)');  q.sql.add('Select @@Identity');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('Parent').Value:=Parent;  q.Parameters.ParamByName('ItemName').Value:=ExtractFileName(Name);  q.Parameters.ParamByName('ItemSize').Value:=GetFileSize(Name);  q.Parameters.ParamByName('Data').LoadFromFile(Name, ftGraphic);  q.Open;  result:=q.Fields[0].AsInteger;  q.Close; end; Procedure TForm1.v_LoadFile(id:integer;Name:string); begin  q.sql.clear;  q.sql.add('Select Data from fs where ItemId=:id');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('id').Value:=id;  q.Open;  (q.fields[0] as TBlobField).SaveToFile(Name);  q.Close; end; Procedure TForm1.v_RenameFile(id:integer;NewName:string); begin  q.sql.clear;  q.sql.add('Update fs Set ItemName=:ItemName where ItemId=:id');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('id').Value:=id;  q.Parameters.ParamByName('ItemName').Value:=NewName;  q.ExecSQL; end; Procedure TForm1.v_Delete(id:integer); begin  q.sql.clear;  q.sql.add('Delete from fs where ItemId=:id');  q.sql.add('while (Select count(*) From fs where Parent not in (Select Distinct ItemId From fs) and Parent<>-1)>0 begin Delete from fs where Parent not in (Select Distinct ItemId From fs) and Parent<>-1 end');  q.Parameters.ParseSQL(q.sql.text, true);  q.Parameters.ParamByName('id').Value:=id;  q.execSQL; end; Function TForm1.v_GetFolderId:integer; begin  if ListBox.Items.Count=0 then    begin      result:=-1;      exit;    end;  if PFileInfo(ListBox.items.Objects[0])^.ItemName<>'..' then    Result:=PFileInfo(ListBox.items.Objects[0])^.Parent  else    Result:=PFileInfo(ListBox.items.Objects[0])^.Id; end; procedure TForm1.Button1Click(Sender: TObject); begin  Showmessage(v_GetPath(3)); //  v_SaveFile(1, 'c:\boot.ini'); //  v_LoadFile(3, 'c:\qqqqqqqqqq'); end; procedure TForm1.ListBoxDblClick(Sender: TObject);  var i:integer; begin  Case PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemType of    0: begin         i:=PFileInfo(ListBox.items.Objects[0])^.Id;         v_Dir(v_GetParent(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id), ListBox.items);         RestorePosition(FindById(i));       end;    1: v_Dir(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id, ListBox.items);    2: SpeedButton5Click(nil);  end;  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId); end; procedure TForm1.FormActivate(Sender: TObject); begin  onActivate:=nil; end; function TForm1.FindById(Id:Integer):integer;  var i:integer; begin  Result:=0;  for i:=0 to ListBox.Items.Count-1 do    begin      if PFileInfo(ListBox.items.Objects[i])^.Id=Id then        begin          Result:=i;          exit;        end;    end; end; procedure TForm1.SpeedButton1Click(Sender: TObject);  var i:integer; begin  i:=PFileInfo(ListBox.items.Objects[0])^.Id;  v_Dir(v_GetParent(PFileInfo(ListBox.items.Objects[0])^.Id), ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  RestorePosition(FindById(i)); end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin  v_Dir(-1, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  RestorePosition(0); end; procedure TForm1.SpeedButton3Click(Sender: TObject);  var s:string;  var i:integer; begin  i:=ListBox.ItemIndex;  if InputQuery('New Folder','',s) then    i:=v_AddDir(v_GetFolderId, s);  v_Dir(v_GetFolderId, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  RestorePosition(i); end; procedure TForm1.RestorePosition(i:integer); begin  ListBox.ItemIndex:=i;  if ListBox.ItemIndex=-1 then ListBox.ItemIndex:=0;  ListBoxClick(nil); end; procedure TForm1.SpeedButton4Click(Sender: TObject);  var i:integer; begin  i:=ListBox.ItemIndex;  if ListBox.ItemIndex<0 then exit;  if (ListBox.ItemIndex=0) and (ListBox.Items[ListBox.ItemIndex]='..') then exit;  v_Delete(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id);  v_Dir(v_GetFolderId, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  RestorePosition(i); end; procedure TForm1.SpeedButton5Click(Sender: TObject);  var i:integer; begin  if ListBox.ItemIndex=-1 then exit;  i:=ListBox.ItemIndex;  if PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemType<>2 then exit;  SaveDialog.FileName:=PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemName;  if SaveDialog.Execute then    v_LoadFile(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id, SaveDialog.FileName);  RestorePosition(i); end; procedure TForm1.SpeedButton6Click(Sender: TObject);  var i:integer; begin  i:=ListBox.ItemIndex;  if OpenDialog.Execute then    i:=v_SaveFile(v_GetFolderId, OpenDialog.FileName);  v_Dir(v_GetFolderId, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  RestorePosition(FindById(i)); end; procedure TForm1.ListBoxClick(Sender: TObject);  var i:integer; begin  if ListBox.ItemIndex=-1 then exit;  Case PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemType of    0: StatusBar.Panels[0].Text:='Up';    1: StatusBar.Panels[0].Text:='Dir';    2: StatusBar.Panels[0].Text:='File';  End;  Case PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemType of    2: begin         i:=PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemSize;         if i<1024 then           StatusBar.Panels[1].Text:=Format('%d Bytes', [i])         else           if i<1024*1024 then             StatusBar.Panels[1].Text:=Format('%f Kb', [i/1024])           else             StatusBar.Panels[1].Text:=Format('%f Mb', [i/(1024*1024)]);       end;    else StatusBar.Panels[1].Text:='';  End; end; procedure TForm1.SpeedButton7Click(Sender: TObject);  var s:string;  var i:integer; begin  if ListBox.ItemIndex=-1 then exit;  i:=ListBox.ItemIndex;  Case PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemType of    2:  begin          if InputQuery('Rename file '+PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemName,'Enter new name',s) then            v_RenameFile(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id, s);        end;    1:  begin          if InputQuery('Rename folder '+PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemName,'Enter new name',s) then            v_RenameFile(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id, s);        end;    else exit;   End;  v_Dir(v_GetFolderId, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  RestorePosition(i); end; procedure TForm1.SpeedButton8Click(Sender: TObject);  var i:integer; begin  i:=ListBox.ItemIndex;  v_Dir(v_GetFolderId, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);  ListBoxClick(nil);  RestorePosition(i); end; procedure TForm1.ListBoxDragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean); begin  Accept:=Source is TShellListView; end; procedure TForm1.ListBoxDragDrop(Sender, Source: TObject; X, Y: Integer);  var i:integer; begin  i:=ListBox.ItemIndex;  try    i:=v_SaveFile(v_GetFolderId,ShellTreeView1.Path+'\'+TShellListView(Source).SelectedFolder.DisplayName);  finally    v_Dir(v_GetFolderId, ListBox.items);    StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId);    RestorePosition(FindById(i));  end; end; procedure TForm1.ShellListView1DragOver(Sender, Source: TObject; X,  Y: Integer; State: TDragState; var Accept: Boolean); begin  Accept:=Source is TListBox; end; procedure TForm1.ShellListView1DragDrop(Sender, Source: TObject; X,  Y: Integer);  var i:integer;      FileName:string; begin  if ListBox.ItemIndex=-1 then exit;  i:=ListBox.ItemIndex;  if PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemType<>2 then exit;  FileName:=ShellTreeView1.Path+'\'+PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.ItemName;  v_LoadFile(PFileInfo(ListBox.items.Objects[ListBox.ItemIndex])^.Id, FileName);  RestorePosition(i); end; procedure TForm1.SpeedButton9Click(Sender: TObject); begin  ADOConnection.Connected:=false;  ADOConnection.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source='+Edit1.Text;  q.SQL.text:='Select Name from sysdatabases order by 1';  q.Open;  ComboBox.Items.Clear;  while not q.Eof do    begin      ComboBox.Items.Add(q.Fields[0].asstring);      q.Next;    end;  q.Close; end; procedure TForm1.SpeedButton10Click(Sender: TObject); begin  ADOConnection.Connected:=false;  ADOConnection.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+ComboBox.Items[ComboBox.itemindex]+';Data Source='+Edit1.Text;  ADOConnection.Connected:=true;  q.sql.Text:='if (select count(*) From sysobjects where name=''fs'' and xtype=''U'')=0';  q.sql.add('begin CREATE TABLE [dbo].[fs] (');  q.sql.add('[ItemId] [int] IDENTITY (1, 1) NOT NULL ,');  q.sql.add('[Parent] [int] NOT NULL ,');  q.sql.add('[ItemLevel] [int] NOT NULL ,');  q.sql.add('[ItemType] [int] NOT NULL ,');  q.sql.add('[ItemSize] [bigint] NULL ,');  q.sql.add('[ItemName] [varchar] (255) NULL ,');  q.sql.add('[Data] [image] NULL');  q.sql.add(') ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]');  q.sql.add('ALTER TABLE [dbo].[fs] WITH NOCHECK ADD');  q.sql.add(' CONSTRAINT [DF_fs_ItemType] DEFAULT (1) FOR [ItemType],');  q.sql.add(' CONSTRAINT [PK_fs] PRIMARY KEY  CLUSTERED');  q.sql.add(' (');  q.sql.add('  [ItemId]');  q.sql.add(' )  ON [PRIMARY] end');  q.ExecSQL;  v_Dir(-1, ListBox.items);  StatusBar.Panels[2].Text:=v_GetPath(v_GetFolderId); end; end.

Vit, спасибо большое за приведенный пример. Нашел, почему не работало. при просмотре твоего кода сразу бросается в глаза:

Код

q.sql.add('begin CREATE TABLE [dbo].[fs] ('); q.sql.add('[ItemId] [int] IDENTITY (1, 1) NOT NULL ,'); q.sql.add('[Parent] [int] NOT NULL ,'); q.sql.add('[ItemLevel] [int] NOT NULL ,'); q.sql.add('[ItemType] [int] NOT NULL ,'); q.sql.add('[ItemSize] [bigint] NULL ,'); q.sql.add('[ItemName] [varchar] (255) NULL ,'); q.sql.add('[Data] [u][color=red][image] [/color][/u]NULL');

тип поля у тебя Image, у меня стояло binary в MSSQL. поменял на image, загрузка файлов в таблицу сразу стала работать нормально. В связи с чем у меня появился вопрос, а почему image ??? ведь должно быть binary или я не прав ?

а если почитать выше в теме:

Цитата

Цитата (Garmahis @ 9.2.2005, 01:55) Binary?  Да

Цитата(vn31 @ 23.2.2005, 00:42)

тип поля у тебя Image, у меня стояло binary в MSSQL. поменял на image, загрузка файлов в таблицу сразу стала работать нормально. В связи с чем у меня появился вопрос, а почему image ??? ведь должно быть binary или я не прав ?

А хрен его знает... Когда то давно экспериментировал с ними, нашёл что нормально как BLOB'ы работают именно поля типа Image, сам не могу понять зачем они их так дегенеративно назвали

Цитата(Vit @ 9.2.2005, 17:34)

Цитата(Garmahis @ 9.2.2005, 01:55) А считывать? Код q.sql.text:='Select ...' (q.fieldbyname('MyField') as TBlobField).SaveToFile... (q.fieldbyname('MyField') as TBlobField).SaveToStream...

Вопрос, а почему может быть при использовании кода приведенного ниже создаваться файл размером 0 byte. Файлы укладываются в поле Image (size 16) ровно таким же образом как в выше указанных примерах.
Delphi 6 и MS SQL 2000.

FeT - полный код нужен

Цитата(Vit @ 9.6.2005, 15:54)

FeT - полный код нужен

Запись файла в БД

Код

if OpenDialog1.Execute and (OpenDialog1.FileName <> '') then     begin       file_name := ExtractFileName (OpenDialog1.FileName);       f_dm.q_ini.sql.text:='Insert into [dbo].[Attachments] (Name_table, ID_record, Name_File, prim)'                         + ' Values ('                         + '''' + Table_Name + ''', '                         + IntToStr(ID_Rec)+', '                         + ''''+ file_name+ ''', :b)';       f_dm.q_ini.parameters.parseSQL(f_dm.q_ini.sql.text, true);       f_dm.q_ini.parameters.ParamByName('b').LoadFromFile(OpenDialog1.FileName, ftGraphic );       f_dm.q_ini.execsql;       f_dm.q_ini.sql.text := 'Update [zargarov].['+ Table_Name+ '] SET Attachment_Exist=1 where ID='+ IntToStr(ID_Rec);       f_dm.q_ini.execsql;

Вот так достаем, размер файла 0 byte. Если через поток и его размер 0. Поле имеет тип Image.

Код

f_dm.q_ini.Close;   f_dm.q_ini.SQL.Text := 'Select prim from [dbo].[Attachments] where id='+IntToStr(ID_Attach)+' AND Type_Attach='+IntToStr(Type_Attach);   f_dm.q_ini.Open; File_name := q_Work.FieldByName('Name_File').Value ;   (f_dm.q_ini.FieldByName('Prim') as TBlobField).SaveToFile(Temp_Folder+'OKO\'+File_name);  finally     b.free;   end;  CmdLine := Temp_Folder+'OKO\'+File_name ;  result:=True;  if ShellExecute(Handle,nil, PChar( String( CmdLine ) ),nil,nil,SW_MAXIMIZE) < 32 then     begin       result:=False;     end;

Код

f_dm.q_ini.Close;   f_dm.q_ini.SQL.Text := 'Select prim from [dbo].[Attachments] where id='+IntToStr(ID_Attach)+' AND Type_Attach='+IntToStr(Type_Attach);   f_dm.q_ini.Open; File_name := q_Work.FieldByName('Name_File').Value ;   (f_dm.q_ini.FieldByName('Prim') as TBlobField).SaveToFile(Temp_Folder+'OKO\'+File_name);

По моему скромному убеждению File_name будет иметь всегда пустое значение...
А поле Type_Attach всегда вставляется пустым...
Значение переменной Type_Attach должно быть в кавычках...

Удивительно что этот код не сгенерировал массу ошибок на этапе выполнения запросов...



Это сообщение отредактировал(а) Vit - 9.6.2005, 20:05

Цитата(Vit @ 9.6.2005, 20:02)

По моему скромному убеждению File_name будет иметь всегда пустое значение... А поле Type_Attach всегда вставляется пустым... Значение переменной Type_Attach должно быть в кавычках... Удивительно что этот код не сгенерировал массу ошибок на этапе выполнения запросов...

Данный код полностью работоспособен при использовании MS Access (тип поля Memo).
И проблема только в том, что файл создается размером 0. Пробовал через потоки, его (потока) размер тоже ноль.

FeT - значит вы привели не полный код... Присмотритесь внимательно к тем проблемам которые я указал