⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 1.txt

📁 dephi视频控制(Demo+源码) SendMessage做视频捕获,不要驱动
💻 TXT
字号:
先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;   

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -