mostrar un porcentaje o progressbar

[rzf1983]

verdaderamente, codificar es un procedimiento, perdon x mi error. El programita tonto que tengo pide 2 nombre de archivos, uno de entrada y otro de salida y un boton para llamar al procedimiento.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, Outline, DirOutln, ComCtrls, AppEvnts, ExtCtrls, Menus;
   procedure codificar(param1: PChar; param2: PChar; modo: integer)  cdecl; external 'libreriadll.dll';
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a :  string;
    b:string;

implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
begin
a := edit1.Text;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
b := edit2.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
codificar (Pchar(a),Pchar(b),0);
end;

end.

Entonces, dentro de ese "codificar" si es facil averiguar el porcentaje del proceso pq se basa en un while y cada vez q realiza el while pues calculo el porcentaje. el problema es q como se lo doy a delphi una vez que lo he llamado

[[Chris]]

Hasta donde yo sé, puedes utilizar una función/procedimiento de tipo CallBack como las que se utilizan con la API de windows. No se como se emplementaría esto, pero estoy seguro que aca en el club sobran los que sepan como hacerlo.

Saludos.

[rzf1983]

ok, pues a ver si alguien sabe como seria

[rzf1983]

venga hombre, animaros que seguro q sabeis

[[Chris]]

Al respecto le prodría preguntar a seome, él es nuestro Ph. D. en API de Windows.