请大家帮忙(怎么插入图片)(50分)

abraveboy · 2006-12-04

Stream := TStream.Create(); { with Query1 do  begin  close;  sql.clear;  sql.add('select * from GProfilesExt where ProfileNo =

rofileNo');  ParamByName('ProfileNo').asstring := QuotedStr('G000006975');  open;    end;}    FAccount := 'G000006975';  with Query1 do  begin  close;  sql.clear;  sql.add('select * from GProfilesExt where ProfileNo='+QuotedStr(FAccount));  open;   TBlobField(FieldByName('CertImage')).SaveToStream(Stream);  // Stream := TBlobStream.Create(TBlobField(FieldByName('CertImage')),bmRead);  //ParamByName('CertImage')as TBlobFiedl).SaveToStream(Stream);  //或  with Query2 do  begin  close;  sql.clear;  sql.add('insert into Image_test(Image) values

Image)');  TBlobField(ParamByName('Image')).LoadFromStream(Stream);  execSql;  end;  end;  Stream.Free;

HuangJH · 2006-12-04

你到底要干什么？ I Full U

abraveboy · 2006-12-05

TO HuangJH:你好,我要做从数据库中一个Image类型的字段,取出把它存到另一个表的image类型的字段中 请大哥帮忙

peizmbj · 2006-12-05

var  TempJPEG:TJpegImage;  LStream:TMemoryStream; begin  Result:=False;  TempJPEG:=TJpegImage.Create;  try    LStream:=TMemoryStream.Create;    Try      try        TBlobField(ADOQuery1.FieldByName('Photo')).SaveToStream(LStream);        LStream.Seek(0, soFromBeginning);        TempJPEG.LoadFromStream(LStream);        imgPhoto.Picture.Bitmap.Assign(TempJPEG);      finally        LStream.Free;      end;    Except      Exit ;    end;    finally    TempJPEG.Free;  end;  Result:= True; 要存在另一张表中 var  sPath:String; begin  SavePictureDialog1.InitialDir:='C:';  if SavePictureDialog1.Execute  then  Begin    sPath:=SavePictureDialog1.FileName;    imgPhoto.Picture.LoadFromFile(sPath);    imgPhoto.Picture := Nil;    end    else    begin      if DataSource1.State=DSBrowse then DataSource1.Edit;      Adoquery1.Append ;        TBlobField(Adoquery1.FieldByName('Photo')).LoadFromFile(sPath);      imgPhoto.Stretch:=true;      Adoquery1.Post;    end  end;

请大家帮忙(怎么插入图片)(50分)

abraveboy

Unregistered / Unconfirmed

HuangJH

Unregistered / Unconfirmed

abraveboy

Unregistered / Unconfirmed

peizmbj

Unregistered / Unconfirmed

Similar threads