[rubenlalo]

Buenas Buenas a todos del Club Delphi.

En alguna ocación encontre este codigo en el foro, este algoritmo recupera el archivo almacenado en forma de cadena de texto (Hexadecimal), lo que quisiera es que me ayuden a convertir el algoritmo a codigo PHP.

Código Delphi [-]
procedure TfrmCompanies.proStrToBin (img: String; Str: String);
var
  Stream: TFileStream;
  i: integer;
  b: integer;
begin
  Stream:= TFileStream.Create (img, fmCreate);
  try
    i:= 1;
    while i < Length (Str) do begin
      if TryStrToInt ('$' + Copy (Str, i, 2), b) then begin
        Stream.Write (b, 1);
      end else
        Exit;
      Inc (i, 2);
    end;
  finally
    Stream.Free;
  end;
end;

Gracias de antemano por su ayuda espero me puedan ayudar pronto
Bye bye....