데이터 베이스 MySQL 튜토리얼 用ADO控件存取SQL Server数据库图片

用ADO控件存取SQL Server数据库图片

Jun 07, 2016 pm 03:12 PM
ad server sql 그림 입장 제어 데이터 베이스

用ADO控件 存取 SQL Server 数据库 图片 ,查看资料发现基本都是针对BMP文件进行操作(巨增 数据库 大小),但发现了★eagletian★高手翻译的ADO英文技术文档,里面涉及到了 数据库 存取 JPEG文件的关键技术,在win98+sql server桌面版中测试通过,运行良好,

用ADO控件存取SQL Server数据库图片,查看资料发现基本都是针对BMP文件进行操作(巨增数据库大小),但发现了★eagletian★高手翻译的ADO英文技术文档,里面涉及到了数据库存取JPEG文件的关键技术,在win98+sql server桌面版中测试通过,运行良好,现于源码公开如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, Db, ADODB,jpeg, StdCtrls,dbtables;
 {一定要USES JPEG单元,使能存储JPG文件格式}
type
TForm1 = class(TForm)
  DataSource1: TDataSource;
  ADOQuery1: TADOQuery;
  DBGrid1: TDBGrid;
  DBNavigator1: TDBNavigator;
  Image1: TImage;
  savebutton: TButton;
  showbutton: TButton;
  OpenDialog1: TOpenDialog;
  ADOQuery1id: TIntegerField;
  ADOQuery1pic: TBlobField;
  procedure savebuttonClick(Sender: TObject);
  procedure showbuttonClick(Sender: TObject);
  procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function JpegStartsInBlob(PicField:TBlobField):integer;
 var
  ghy: TADOBlobstream;
  buffer:Word;
  hx: string;
 begin
  Result := -1;
  ghy := TADOBlobstream.Create(PicField, bmRead);
  try
  while (Result = -1) and (ghy.Position + 1   begin
   ghy.ReadBuffer(buffer, 1);
   hx:=IntToHex(buffer, 2);
   if hx = ’FF’ then begin
   ghy.ReadBuffer(buffer, 1);
   hx:=IntToHex(buffer, 2);
   if hx = ’D8’ then Result := ghy.Position - 2
   else if hx = ’FF’ then
      ghy.Position := ghy.Position-1;
   end; //if
  end; //while
  finally
   ghy.Free
  end; //try
 end;


procedure TForm1.savebuttonClick(Sender: TObject);
var
picstream:tadoblobstream;
begin
adoquery1.edit;
picstream:=tadoblobstream.Create(tblobfield(adoquery1.fields[1]),bmWrite);
if form1.opendialog1.execute then
begin
picstream.LoadFromFile(opendialog1.filename);
picstream.Position:=0;
adoquery1.edit;
tblobfield(adoquery1.Fields[1]).loadfromstream(picstream);
adoquery1.post;
end;


end;

procedure TForm1.showbuttonClick(Sender: TObject);
var
ghy:TADOBlobstream;
pic:tjpegimage;
begin
ghy := TADOBlobstream.Create(Adoquery1pic, bmRead);
try
ghy.Seek(JpegStartsInBlob(Adoquery1pic),soFromBeginning);
Pic:=TJpegImage.Create;
try
 Pic.LoadFromStream(ghy);
 Image1.Picture.Graphic:=Pic;
finally
 Pic.Free;
end;
finally
ghy.Free
end;
end;

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if button in [nbFirst, nbPrior, nbNext, nbLast] then showbutton.Click;
end;

end.

如果数据库中要存储的是BMP文件,则在procedure TForm1.showbuttonClick(Sender: TObject);过程中代码更改如下即可存储显示BMP文件格式的操作。
procedure TForm1.showbuttonClick(Sender: TObject);
var
ghy:TADOBlobstream;
pic:tbitmap;
begin
ghy := TADOBlobstream.Create(Adoquery1pic, bmRead);
try
{ ghy.Seek(JpegStartsInBlob(Adoquery1pic),soFromBeginning);}
Pic:=Tbitmap.Create;
try
 Pic.LoadFromStream(ghy);
 Image1.Picture.Graphic:=Pic;
finally
 Pic.Free;
end;
finally
ghy.Free
end;
end; 

본 웹사이트의 성명
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.

뜨거운 기사 태그

메모장++7.3.1

메모장++7.3.1

사용하기 쉬운 무료 코드 편집기

SublimeText3 중국어 버전

SublimeText3 중국어 버전

중국어 버전, 사용하기 매우 쉽습니다.

스튜디오 13.0.1 보내기

스튜디오 13.0.1 보내기

강력한 PHP 통합 개발 환경

드림위버 CS6

드림위버 CS6

시각적 웹 개발 도구

SublimeText3 Mac 버전

SublimeText3 Mac 버전

신 수준의 코드 편집 소프트웨어(SublimeText3)

Hibernate 프레임워크에서 HQL과 SQL의 차이점은 무엇입니까? Hibernate 프레임워크에서 HQL과 SQL의 차이점은 무엇입니까? Apr 17, 2024 pm 02:57 PM

Hibernate 프레임워크에서 HQL과 SQL의 차이점은 무엇입니까?

Go 언어는 데이터베이스의 추가, 삭제, 수정 및 쿼리 작업을 어떻게 구현합니까? Go 언어는 데이터베이스의 추가, 삭제, 수정 및 쿼리 작업을 어떻게 구현합니까? Mar 27, 2024 pm 09:39 PM

Go 언어는 데이터베이스의 추가, 삭제, 수정 및 쿼리 작업을 어떻게 구현합니까?

PPT에 그림 레이아웃 육각형 클러스터를 삽입하는 방법 PPT에 그림 레이아웃 육각형 클러스터를 삽입하는 방법 Mar 26, 2024 pm 05:10 PM

PPT에 그림 레이아웃 육각형 클러스터를 삽입하는 방법

PHP에서 MySQLi를 사용하여 데이터베이스 연결을 설정하는 방법에 대한 자세한 튜토리얼 PHP에서 MySQLi를 사용하여 데이터베이스 연결을 설정하는 방법에 대한 자세한 튜토리얼 Jun 04, 2024 pm 01:42 PM

PHP에서 MySQLi를 사용하여 데이터베이스 연결을 설정하는 방법에 대한 자세한 튜토리얼

Hibernate는 어떻게 다형성 매핑을 구현합니까? Hibernate는 어떻게 다형성 매핑을 구현합니까? Apr 17, 2024 pm 12:09 PM

Hibernate는 어떻게 다형성 매핑을 구현합니까?

iOS 18에는 손실되거나 손상된 사진을 검색할 수 있는 새로운 '복구된' 앨범 기능이 추가되었습니다. iOS 18에는 손실되거나 손상된 사진을 검색할 수 있는 새로운 '복구된' 앨범 기능이 추가되었습니다. Jul 18, 2024 am 05:48 AM

iOS 18에는 손실되거나 손상된 사진을 검색할 수 있는 새로운 '복구된' 앨범 기능이 추가되었습니다.

PPT 슬라이드쇼에서 여러 장의 사진이 자동으로 재생되도록 설정하는 작업 과정 PPT 슬라이드쇼에서 여러 장의 사진이 자동으로 재생되도록 설정하는 작업 과정 Mar 26, 2024 pm 02:01 PM

PPT 슬라이드쇼에서 여러 장의 사진이 자동으로 재생되도록 설정하는 작업 과정

PPT에서 텍스트와 그림을 결합하는 방법 PPT에서 텍스트와 그림을 결합하는 방법 Mar 26, 2024 pm 03:16 PM

PPT에서 텍스트와 그림을 결합하는 방법

See all articles