1.txt

来自「dephi视频控制(Demo+源码) SendMessage做视频捕获,不要驱动」· 文本 代码 · 共 33 行

先uses   jpeg   
    
  这是把.jpg格式的文件存入数据。也可以是其它类型的文件   
  procedure   TForm7.Button1Click(Sender:   TObject);             
  var   str:Tmemorystream;   
  begin   
  str:=Tmemorystream.Create;   
  str.LoadFromFile('d:\cai.jpg');//OpenDialog1.FileName　也可以   
  str.Position:=0;   
    
      
    
        adoquery2.Append;                                                               //图片   
          Tblobfield(adoquery2.FieldByName('image')).loadfromstream(str);   
          try   
          adoquery2.Post;   
          finally   
          str.Free;   
          end;   
  end;   
    
    
  procedure   TForm5.Button1Click(Sender:   TObject);   
  var   str:Tmemorystream;                                       
  begin   
  IF   not   ADOQUERY2.IsEmpty   Then                               
      Begin   
      str:=Tmemorystream.Create;                                                     str.Position:=0;   
      Tblobfield(adoquery2.FieldByName('image')).savetostream(str);   
      str.SaveToFile(ExtractFilePath(Application.ExeName)+'image\cai.jpg');   
      str.Free;   
      end;