如何将图片存到SQL SERVER中？

Question

see:
http://www.csdn.net/expert/topic/597/597921.xml?temp=.1696588

Answer 1

To ehom:
怎么过渡？code？

Answer 2

1，插入文件
procedure TForm2.ToolButton2Click(Sender: TObject);
var
MemSize: Integer;
Buffer: PChar;
MyFile: TMemoryStream;
Stream: TADOBlobStream;
begin
        OpenDialog1.Filter:='图片文档(*.ipg)|*.jpg';{从对话窗选择文件}
        if OpenDialog1.Execute then 
               begin
          MyFile:=TMemoryStream.Create;
          MyFile.LoadFromFile(OpenDialog1.FileName);
           
    if   ADOQuery5.FieldByName('wjnr').IsNull then begin
          with ADOQuery5 do
                        begin
            Open;
            edit;
            Stream :=TADOBlobStream.Create(TBlobField(FieldByName('wjnr')),bmwrite);
            MemSize := MyFile.Size;
            Inc(MemSize);
            Buffer := AllocMem(MemSize);
            Stream.Seek(0, soFromBeginning);
              MyFile.Read(Buffer^,MemSize);
              Stream.Write(Buffer^,MemSize);
              MyFile.Free;
              Stream.Free;
              Post;
                       end;           OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,False);
           OleContainer1.Run;
           end;
  end;//if
end;

Answer 3

TBlobField(aField).LoadFromFile(aFileName);
aField为Image字段，aFileName为图片文件名