Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
if savedialog1.Execute then begin
Bitmap := TBitmap.Create;
Bitmap.PixelFormat := pf1bit;
bitmap.Height:=memo1.ClientHeight;
bitmap.Width:=memo1.ClientWidth;
bitmap.Canvas.Draw(0,0,memo1.CanvasYok);
bitmap.SaveToFile(savedialog1.FileName);
bitmap.Free;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
hv:hdc;
begin
if savedialog1.Execute then begin
Bitmap := TBitmap.Create;
Bitmap.PixelFormat := pf1bit;
bitmap.Height:=memo1.Height;
bitmap.Width:=memo1.Width;
hv:=bitmap.canvas.Handle;
memo1.PaintTo(hv,0,0);
bitmap.SaveToFile(savedialog1.FileName);
bitmap.Free;
end;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
hv:hdc;
begin
if savedialog1.Execute then begin
Bitmap := TBitmap.Create;
Bitmap.PixelFormat := pf1bit;
bitmap.Height:=memo1.Height;
bitmap.Width:=memo1.Width;
For i:=0 to memo1.lines.count-1 do
bitmap.Canvas.TextOut(1,i * 10, memo1.lines[i]);
bitmap.SaveToFile(savedialog1.FileName);
bitmap.Free;
end;
end; Kod: Tümünü seç
procedure TextToBitmap(const AText: TStrings; ATarget: TBitmap; AMarginX: Integer=0; AMarginY: Integer=0);
var Y: Integer;
LineH, LineW: Integer;
begin
ATarget.Width:=0;
LineH:=ATarget.Canvas.TextHeight('Wg');
ATarget.Height:=(AText.Count*LineH)+(AMarginY*2);
for Y := 0 to AText.Count-1 do
Begin
LineW:=ATarget.Canvas.TextWidth(AText.Strings[Y] 1;+ AMarginX*2;
if ATarget.Width<LineW then
ATarget.Width:=LineW;
ATarget.Canvas.TextOut(AMarginX, AMarginY+LineH*Y, AText.Strings[Y]);
end;
end;Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var Strings: TStringList;
begin
Strings := TStringList.Create;
try
Strings.LoadFromFile('C:\WINDOWS\wmsetup.log') ;
TextToBitmap(Strings, Image1.Picture.Bitmap, 1, 0);
finally
Strings.Free;
end;
end;Kod: Tümünü seç
procedure Tform1.TextToBitmap(const AText: TStrings; ATarget: TBitmap; AMarginX: Integer=0; AMarginY: Integer=0);
var Y: Integer;
LineH, LineW: Integer;
begin
ATarget.Width:=memo1.Width;//0;
LineH:=ATarget.Canvas.TextHeight('Wg');
ATarget.Height:=memo1.height;//(AText.Count*LineH)+(AMarginY*2);
for Y := 0 to AText.Count-1 do
Begin
LineW:=ATarget.Canvas.TextWidth(AText.Strings[Y])+ AMarginX*2;
if ATarget.Width<LineW then
ATarget.Width:=LineW;
ATarget.Canvas.TextOut(AMarginX, AMarginY+LineH*Y, AText.Strings[Y]);
end;
end;
Kod: Tümünü seç
procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Picture.Bitmap.Canvas.Font:=memo1.Font;
TextToBitmap(memo1.Lines, Image1.Picture.Bitmap, 0, 0);
end;
hi Kelaynak2,
> Please Velibor help me. I Succeed recognize all charecter smallfont size 7
> with Neuralnet. But how I seperate a charecter on a bitmap.Excatly like your
> OCR prg. I read per pixel, if pixel Black then I can tested its neighbor
> pixel which black or white. If it is black, I test next pixel etc.And I can
> Writing this pixel a otherther bitmap and I translate this pixels "0" and
> "1".
my method for extraction letters are very simple but not most
efficiently method....
I will try to explain it...
when I found black pixels I am detecting pixels around it (up, down,
left and right try to imagine square around pixel) if I found pixel in
one of the side of this square in next iteration I make this square
larger and larger until I get only white pixels in all four sides of
this rectangle, like in following example...
000000
001100
010010
011110
010010
010010
000000
> Are you use scanline?
Scanline is faster method but I didn't used scanline method, I was
access pixels with function Canvas.Pixel[x,y]...
best regards, Velibor
--
e-mail: mailto:ilicv@EUnet.yu
homepage: http://SOLAIR.EUnet.yu/~ilicv
: http://come.to/velibor
