delphi+Sql图片问题

来源：百度知道 编辑：UC知道 时间：2024/06/28 02:36:02
数据库中表名为stuinfo,有字段学生姓名 stuname,照片 photo
combobox1中选择一个学生的姓名然后怎么把相应的照片载入到数据库中？
怎么从数据库中调出显示？

我就用我写的程序里面原一段给你吧（图片导入）
procedure TJLZYBZS_Form.SpeedButton3Click(Sender: TObject);
const
JPEG_FLAG_BEGIN = $D8FF;
JPEG_FLAG_END = $D9FF;
var
JpegStream:TMemoryStream;
Jpeg:TJpegImage;
Imageproperty:TFileStream;
Flag1,Flag2:word;
begin
try
JpegStream:=Tmemorystream.Create;
jpeg:=Tjpegimage.create;
if OpenDialog1.Execute then
begin
Imageproperty:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
Imageproperty.Read(Flag1,SizeOf(Flag1));
Imageproperty.Position:=Imageproperty.Size-2;
Imageproperty.Read(Flag2,sizeOf(Flag2));
if not (flag1=JPEG_FLAG_BEGIN) and (flag2=JPEG_FLAG_END) then
begin
showmessage('您上传的图片格式不是*.JPEG格式！请先转换！');
SpeedButton3.Cursor:=crdefault;
JpegStream.Free;
Imageproperty.Free;
exit;
end;
Imageproperty.Free;
jpeg.LoadFromFile(O