有个Delphi编译出来的EXE文件,求大神解读下"导入照片"按钮如何操作,才能正确对应程序

解决方案 »

  1.   

    导入图像文件,就是通过TOpenPictureDialog控件,打开一个图像文件,读图像,再打印出来,或保存在数据库中。
    比如:procedure TSeleteImageFrm.Button3Click(Sender: TObject);
    var FileName:string;
        JPG:TJPEGImage;
        Bmp: TBitmap;
    begin
      OpenPictureDialog1.InitialDir:=ImagePath;
      OpenPictureDialog1.Filter:='打开图片文件[*.JPG]|*.JPG';
      if OpenPictureDialog1.Execute then
      begin
        FileName:=OpenPictureDialog1.FileName;
        JPG:=TJPEGImage.Create;
        Bmp:=TBitmap.Create;
        try
          JPG.LoadFromFile(FileName);
          BMP.Assign(JPG);
          Image1.Picture.Assign(BMP);
        finally;
          JPG.Free;
          Bmp.Free;
        end;
      end;
    end;
      

  2.   

    * Possible String Reference to: 'select * from 071114 where 准考证号
    |                                =''
    |
    0050D177   68F8D25000             push    $0050D2F8
    0050D17C   FF75DC                 push    dword ptr [ebp-$24]
    0050D17F   6828D35000             push    $0050D328
    0050D184   8D45D4                 lea     eax, [ebp-$2C]
    0050D187   BA03000000             mov     edx, $00000003|
    0050D18C   E86375EFFF             call    004046F4
    0050D191   8B55D4                 mov     edx, [ebp-$2C]
    0050D194   58                     pop     eax
    0050D195   8B08                   mov     ecx, [eax]
    0050D197   FF512C                 call    dword ptr [ecx+$2C]* Possible String Reference to: '照片导入完成!共导入:'
    |
    0050D248   6844D35000             push    $0050D344
    0050D24D   8D55CC                 lea     edx, [ebp-$34]