Sorry if in wrong forum.
Code:Function GetBankColor: integer; Var X,Y,DtmBankLogo,BankBitmap,DTMBank2: Integer; Angle: Extended; Begin DtmBankLogo:= DTMFromString('78DA632C656260C864400157769A321801694' + '620FE0F048C85403559A86A562D5F015703020076FA09DD'); DTMBank2 := DTMFromString('78DA639CC0C4C060CE8002AE9CB260E002D28' + 'C40FC1F08182702D558E35603028C9331D524C432A2AA99045463' + '865F0D00925B0C86'); BankBitmap := BitmapFromString(15, 5, 'z78DA95CF510AC0300803D02B' + 'A59DE0F2D9F6FE771A2CFB10CAC4FE04117C443434D8E4C2EA4A8' + '7DFCE8B06FB369AF38C025E139B5C7194EA106F73B9D2991C187D' + '3773F92F2BE6A91CBFD05CE9FC00C9DB6164'); result := -1; If(FindDTM(DtmBankLogo, x, y, 570, 7, 723, 160))then result:= getcolor(x,y); If(result<>-1)Then If(FindDTMRotated(DTMBank2,x,y,565,5,725,162,0,6.28318530717959,0.0174532925199433,Angle))Then result := GetColor(x,y); If(result<>-1)Then If(FindBitmapIn(BankBitmap,X,Y,565,5,725,162))Then result:= getcolor(x,y); If(result=-1)Then Begin Writeln('Couldn'#39't find Bank Color'); End else Writeln(IntToStr(Result)); FreeDTM(DtmBankLogo); FreeDTM(DTMBank2); FreeBitmap(BankBitmap); End; Begin GetBankColor End.


Reply With Quote