Image kontrol

[Jire]

merhaba.

//AboutForm
AboutForm := TForm.Create(Owner);
AboutForm.Position := poScreenCenter;
AboutForm.Height := 300;
AboutForm.Width := 300;
AboutForm.BorderStyle := bsNone;

//AboutPic
AboutPic := TImage.Create(AboutForm);
AboutPic.Align := alClient;

//AboutPic Resim Load
h := LoadLibrary('Resim.dll');
try
if h <> 0 then
begin
AboutPic.Picture.Bitmap.Handle := LoadBitmap(h,'FLOPPY');
end;
finally
FreeLibrary(h);
end;

//AboutPic > AboutForm
TControl(AboutPic).Parent := AboutForm;

//Göster
AboutForm.ShowModal;

Button Eklemeyi daha sonra yapacağım ama olay şu ben dllimden resmi yüklüyorum ama bu resim programı tanıtıyor , resim benim istediğim resim değilse yani değiştirilmiş ise mesaj versin veya normal bi showmessage versin istiyorum.

son olarak dll resource yada program içindeki resource a koymadan programın içine nasıl resim sıkıştırıp yükleyebilirim programın resourcunda gözükmeyecek cinsten.

sonuca gelirsek resmimi değiştirilmez yapmak istiyorum.

şimdiden teşekkürler.

[ikutluay]

resmin oluşturulma tarih saatini ve crcsini kaydedeceksin başkaca kolay yolu yok.

[aseka]

--

[Jire]

Daha önceden hiç denememiştim 1 2 kod verseniz?

[aseka]

--

[Jire]

Aşağıdaki kod işini görür. Ben burada sadece 6 tane piksel'in değerini kontrol ettim. Daha kesin sonuç almak için sen bu 6 değeri daha da arttırabilirsin.

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

const
  Renkler:array [0..5] of TColor =(16711423,14223243,12124321,54213122,15456543,14234251);
  xkoor:array [0..5] of integer =(10,20,25,30,32,50);
  ykoor:array [0..5] of integer =(12,30,45,80,62,90);
  
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
 j:=length(renkler)-1;
 
 for i:=0 to j do
 begin
  if image1.Canvas.Pixels[xkoor[i],ykoor[i]]<>renkler[i] then
  begin
    showmessage('resimler farklı');
    exit;
  end;
 end;
 
end;

end.

teşekkürler deneyeceğim.