在paradox中存储jpeg。
Uses Jpeg Var
jpg: TJpegImage;
stream: TStream;
begin
jpg := TJpegImage.Create;
stream := TMemoryStream.Create;
jpg.SaveToStream(stream);
stream.position := 0;
Table1.Open;
Table1.Append;
Try
Table1.FieldbyName(FieldName).LoadFromStream(stream);
Except
Table1.Cancel; // You don't want dud records do you?
end; {Try...Except}
if (Table1.State = dsInsert) or (Table1.State = dsEdit) then
Table1.Post; //Save the record
end;
//取出,显示
Var
jpg: TJpegImage;
stream: TStream;
begin
jpg := TJpegImage.Create;
stream := TMemoryStream.Create;
Table1.FieldbyName(FieldName).SaveToStream(stream);//存jpeg字段
stream.position := 0;
jpg.LoadFromStream(stream);
Image1.Picture.Graphic := jpg;
end;
Uses Jpeg Var
jpg: TJpegImage;
stream: TStream;
begin
jpg := TJpegImage.Create;
stream := TMemoryStream.Create;
jpg.SaveToStream(stream);
stream.position := 0;
Table1.Open;
Table1.Append;
Try
Table1.FieldbyName(FieldName).LoadFromStream(stream);
Except
Table1.Cancel; // You don't want dud records do you?
end; {Try...Except}
if (Table1.State = dsInsert) or (Table1.State = dsEdit) then
Table1.Post; //Save the record
end;
//取出,显示
Var
jpg: TJpegImage;
stream: TStream;
begin
jpg := TJpegImage.Create;
stream := TMemoryStream.Create;
Table1.FieldbyName(FieldName).SaveToStream(stream);//存jpeg字段
stream.position := 0;
jpg.LoadFromStream(stream);
Image1.Picture.Graphic := jpg;
end;
那个控件有没有具体的下载网址?