تحويل صورة إلى نص - نسخة قابلة للطباعة

PHP كود :

‰PNG

   
IHDR   1   &   â-نh   sRGB ®خé   gAMA  ±ڈüa    cHRM  z&  €„  ْ   €è  u0  ê`  :ک  pœ؛Q<   ‚IDATXGيکر
€ يے?ْ²|3ءI®éqل¶i¯Sڈˆ(ظVُ”m•l†®ï¦'D*çTjâ—Tچ‰¶yZ{µغ´‍¦ًنؤ:GNrjْكل´إ†َd‍جس›M‹}اhةINî}ةTvےl³“*P‘ô<5أ<پjغ%ق«0ؤrْ.§[ً±ڑ
$س    IEND®B`‚

كود :

http://www5.0zz0.com/2015/01/24/20/422098075.jpg

PHP كود :

const
  Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';

function Encode64(S: string): string;
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Ord(s[i]);
    b := b * 256 + x;
    a := a + 8;
    while a >= 6 do
    begin
      a := a - 6;
      x := b div (1 shl a);
      b := b mod (1 shl a);
      Result := Result + Codes64[x + 1];
    end;
  end;
  if a > 0 then
  begin
    x := b shl (6 - a);
    Result := Result + Codes64[x + 1];
  end;
end;

function Decode64(S: string): string;
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Pos(s[i], codes64) - 1;
    if x >= 0 then
    begin
      b := b * 64 + x;
      a := a + 6;
      if a >= 8 then
      begin
        a := a - 8;
        x := b shr a;
        b := b mod (1 shl a);
        x := x mod 256;
        Result := Result + chr(x);
      end;
    end
    else
      Exit;
  end;
end;

 Function mFileToStr(Ruta: string): string;
var
sFile: HFile;
uBytes: Cardinal;
begin
sFile:= _lopen(PChar(Ruta), OF_READ);
uBytes:= GetFileSize(sFile, nil);
SetLength(Result, uBytes);
_lread(sfile, @result[1], uBytes);
_lclose(sFile);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if not OpenPictureDialog1.Execute then  Exit;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
memo1.text:=Encode64(mFileToStr(OpenPictureDialog1.FileName)) ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close ;
end;


end.

كود :

XMLdoc.ChildNodes.Clear;

XMLdoc.Version := '1.0';
XMLdoc.Encoding := 'UTF-8';
XMLDoc.StandAlone := 'yes';

with XMLdoc.AddChild('cardObject') do
  begin
  AddChild('Nom').Text :=  Table1Nom.Value ;
  AddChild('Prenom').Text :=  Table1Prenom.Value ;
  AddChild('Adresse').Text  :=    'الجزائر' ;
   AddChild('photo').Text :=  Memo1.Text  ;
   end;

XMLdoc.SaveToFile('File1.xml') ;

كود :

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <cardObject>
[color=Red]  <Nom>محمد</Nom> [/color]
[color=red]  <Prenom>حسان</Prenom> [/color]
  [color=Lime]<Adresse>الجزائر</Adresse>[/color] 
  <photo>Memo1</photo> 
  </cardObject>