Delphi 는 한 장의 그림을 Access 데이터베이스에 저장합니다

773 단어 Delphi
procedure TForm1.BitBtn2Click(Sender: TObject);
var ext:string;
begin
  openpicturedialog1.FileName :='.jpg';
If OpenPictureDialog1.Execute Then
 begin
   image1.Picture.LoadFromFile(openpicturedialog1.FileName );
      if image1.picture.Graphic <> nil then  
    begin
       adoquery1.Edit;
       adoquery1.FieldByName('  ').Assign(image1.Picture.Graphic);
       ext:=extractfileext(openpicturedialog1.FileName );
   if uppercase(ext) = '.BMP' THEN
      adoquery1.FieldByName('  ').VALUE :='bmp'
   ELSE
     IF (UPPERCASE(EXT) = '.JPEG') OR (UPPERCASE(EXT) = '.JPG') THEN
      adoquery1.FieldByName('  ').VALUE := 'jpg';
   adoquery1.Post;
   end;
end;
end;

좋은 웹페이지 즐겨찾기