Delphi问题????

Question

请问一下把一幅相片插入到数据库的语句怎么写???

Answer 1

uses JPEG;
//这个例子是把JPG插入到表中，所以要引用JPEG单元procedure TForm1.Button1Click(Sender: TObject);
var
   tempStream:TMemoryStream;
   JpgPic:TJpegImage;
   myBmp:Tbitmap;
begin
try
  JpgPic:=TJpegImage.Create;        // 创建JPE图片
  myBmp:=Tbitmap.Create;  tempStream:=TMemoryStream.Create; // 创建内存流
  tempStream.clear;                 // 初始化流  if not OpenPictureDialog1.Execute then Exit;       //  执行“打开图片”的对话窗口
  if UpperCase(ExtractFileExt(OpenPictureDialog1.filename))='.BMP' then   //上BMP文件则进行转换
    begin
      myBmp.LoadFromFile(OpenPictureDialog1.filename);   //把打开的BMP文件存入myBMP中
      JpgPic.Assign(myBmp);                              //转换格式
    end
  else
      JpgPic.LoadFromFile(OpenPictureDialog1.filename);  // 将选定的图片存入该变量
  DBImage1.Picture.bitmap.assign(JpgPic); //若你想DBIMAGE显示JPG图像就可这样.
  JpgPic.SaveToStream(tempStream);        //将该变量中的内容存入流
  AdoQuery1.Open;                   //  打开数据集
  adoquery1.Append;                 //  让数据集处在追加模式
  tblobfield(adoquery1.FieldByName('F_Photo')).LoadFromStream(tempStream) ;  //将流中的信息写入数据表
  adoquery1.Post;  // 向服务器递交修改
finally
  JpgPic.Free;     // 释放
  tempStream.Free; // 释放
end;
end;

Answer 2

求教另一个问题初学delphi,想写一个连接数据库的程序,像QQ的身份验证一样,我的数据库在一个机子上而在另一个机子上访问,求一个完整的程序,用ado数据连接.谢谢!!