Код изображения

[Galatimus]

Доброе время суток уважаемые!!
Пишу бота для рулетки ....
Есть вопрос касаемо захваченных чисел со стола рулетки...
как перевести числа в такой вид с сохранением в ini файл...

вот пример кодов чисел в ini файле

[NumberMD5OCR]
0=ea1089ad
1=9da906d2
2=a722e57d
3=2a1f69b6
4=160a59cc
5=4940b594
6=cb9cfdd4
7=0a9efb42
8=1c6d9a13
9=dac22427
10=ca2eae2b
11=fbe50e6c
12=8974a16a
13=9fc40a0e
14=78006777
15=acba2985
16=a0e41b22
17=b4d8d18b
18=91a44bf9
19=d885c119
20=2340550f
21=cac60756
22=655bef83
23=8c15d62d
24=9b145f69
25=e95a1ca6
26=c71a2c08
27=7e0d0326
28=85023d86
29=b2eba7a0
30=6fe15907
31=d6f7be70
32=9b3afc11
33=b469a193
34=3d19eeca
35=47061000
36=cb535d2f

как это зделано???

[Человек_Борща]

Число в виде HEX значения.

[Galatimus]

Как это реализовать в Делфи?

[Человек_Борща]

StrToInt IntToHex

[Galatimus]

Как преобразовать картинку из Image в HEX код и отобразить в memo и обратно? Заранее благодарю.

[Vova777]

Сообщение от Galatimus

Как преобразовать картинку из Image в HEX код и отобразить в memo и обратно? Заранее благодарю.

здесь по преобразованию все подробно написано

Отобразить в TMemo:

Memo1.Lines.Add(...);

TImage возможно нужно попиксельно сканировать:

ScanLine

или попиксельно перебирать в цикле и сравнивать цвет.

[Galatimus]

картинку ... а не Edit1.Text !!!!

Вот картинки которые я хочу перевести в hex код...

[Vova777]

В цикле (for...to...do) попиксельно просканируйте картинку и напишите код (процедуру, функцию, подпрограмму и т.п.), который будет сравнивать полученные координаты пикселей элемента (можно по координатам углов, т.е. конечных точек элемента) с базой по цифрам (получится графический парсер). Или можно программно конвертировать графический файл в нечто подобное ACSI, так даже будет правильнее. Так определите какая цифра на картинке. А уже потом можно делать то, что я писал в своем предыдущем посте. На самом деле задача элементарная.

[Galatimus]

картинки размером 63 X 24 пикселя

как перевести числа в такой вид с сохранением в ini файл...

[Galatimus]

Во общем сделал так

unit Unit1;

interface

uses
Windows, Messages, SysUtils, StdCtrls, ComCtrls, Classes, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
procedure Button1Click(Sender: TObject);
private
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type
TFillThread = class(TThread)
Handle: THandle;
FileName: string;
protected
procedure Execute; override;
public
constructor Create(Handle: THandle; const FileName: string);
end;

constructor TFillThread.Create(Handle: THandle; const FileName: string);
begin
inherited Create(true);
self.Handle := Handle;
self.FileName:= FileName;
FreeOnTerminate:= true;
Resume;
end;

procedure TFillThread.Execute;
const
MaxBuf = 1024;
Hex: array[0..15] of Char = "0123456789ABCDEF";
var
Data: file;
i, NumRead: integer;
Buf : array[0..MaxBuf - 1] of Char;
Edit: array[0..MaxBuf * 2] of Char;
begin
FileMode:= fmOpenRead;

AssignFile(Data, FileName);
Reset(Data, 1);
repeat
BlockRead(Data, Buf, MaxBuf, NumRead);

for i:= 0 to NumRead-1 do begin
Edit[i*2] := Hex[Byte(Buf[i]) shr $4];
Edit[i*2+1]:= Hex[Byte(Buf[i]) and $F];
end;
Edit[NumRead * 2]:= #0;

SendMessage(Handle, EM_SETSEL, -1, 0);
SendMessage(Handle, EM_REPLACESEL, 0, Lparam(@Edit));
until (NumRead < MaxBuf);

CloseFile(Data);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TOpenDialog.Create(nil) do
try
if Execute then begin
RichEdit1.Clear;
TFillThread.Create(RichEdit1.Handle , FileName);
end;
finally
Free;
end;
end;

end.