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.
Código:
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