5 respuestas en este tema

[Ricardo Mostalac]

Escribí un pequqeño programa que dibuja en un control PAINT un código de barras 2D, el QR. Quiero convertir mi programa a DLL, lo que necesito es exportar una función (GetQRCodeImagen) a la que le paso 3 parámetros, los datos a codificar, el tipo de codificación y el tamaño de la zona segura y la función me debe devolver el HANDLE del bitmap para que otras aplicaciones lo usen y puedan dibujar o imprimir el código.

 

El problema es que, al tratar de establecer el tamaño del Bitmap con el método Setsize (y en general al tratar de acceder a cualquier atributo o método del Bitmap) la DLL envía el error ACCESS VIOLATION.

 

Lo curioso es que el Bitmap no tiene problema al ejecutar el constructor CREATE, es más, después de ejecutar el CREATE verifico que el Bitmap no sea NIL y efectivamente no lo es. No sé porque después del CREATE no puedo acceder a ningún atributo del Bitmap y esto solo ocurre en la DLL, si lo hago en una aplicación normal funciona sin problema.

 

Espero haber explicado el problema correctamente y que alguien pueda darme un "empujoncito" para poder resolver el problema. 

[escafandra]

Sin código es difícil saber que pasa. Es posible que exista un error al declarar la función o que trates de compartir variables entre aplicaciones con tu dll, esto no se puede hacer, a no ser que sean constantes


Saludos.

[Ricardo Mostalac]

A continuación el código de la dll:

 

php

library QRCodeLibDinPrj;
 
 
uses
  Windows, Classes, Graphics, QRCodeUnit
  { you can add units after this };
 
 
function GetQRCodeImagen(Text: Pchar; Codificacion, ZonaSegura: Integer): HBitmap; export; stdcall;
var
  QRCodeBitmap: TBitmap;
  QRCode: TRAMLQRCode;
  Row, Column: Integer;
begin
  QRCodeBitmap := TBitmap.Create;
  QRCode := TRAMLQRCode.Create;
  try
    QRCode.Data := Text;
    QRCode.Encoding := TQRCodeEncoding(Codificacion);
    QRCode.QuietZone := ZonaSegura;
 
    QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns);
 
    for Row := 0 to QRCode.Rows - 1 do
    begin
      for Column := 0 to QRCode.Columns - 1 do
      begin
        if (QRCode.IsBlack[Row, Column]) then
        begin
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;
        end else
        begin
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
        end;
      end;
    end;
    Result := Bitmap.ReleaseHandle;
  finally
    QRCode.Free;
    QRCodeBitmap.Free;
  end;
end;
 
 
exports GetQRCodeImagen;
 
 
begin
end.

A continuación el código de la aplicación que importa la función de la dll:

 

php

unit qrcodedll;
 
 
{$mode objfpc}{$H+}
 
 
interface
 
 
uses
  Windows, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
 
type
 
 
  { TQRCodeDLLForm }
 
 
  TQRCodeDLLForm = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    PaintBox1: TPaintBox;
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    { private declarations }
    QRCodeBitmap: TBitmap;
  public
    { public declarations }
    procedure Update; override;
  end;
 
 
 
 
var
  QRCodeDLLForm: TQRCodeDLLForm;
 
 
  function GetQRCodeImagen(Text: Pchar; Codificacion, ZonaSegura: Integer): HBitmap;
           stdcall; external 'QRCodeLibDinPrj.dll';
 
 
implementation
 
 
{$R *.lfm}
 
 
{ TQRCodeDLLForm }
 
 
procedure TQRCodeDLLForm.Edit1Change(Sender: TObject);
begin
  Update;
end;
 
 
procedure TQRCodeDLLForm.Edit2Change(Sender: TObject);
begin
  Update;
end;
 
 
procedure TQRCodeDLLForm.ComboBox1Change(Sender: TObject);
begin
  Update;
end;
 
 
procedure TQRCodeDLLForm.FormCreate(Sender: TObject);
begin
  QRCodeBitmap := TBitmap.Create;
  Update;
end;
 
 
procedure TQRCodeDLLForm.FormDestroy(Sender: TObject);
begin
  QRCodeBitmap.Free;
end;
 
 
procedure TQRCodeDLLForm.PaintBox1Paint(Sender: TObject);
var
  Scale: Double;
begin
  PaintBox1.Canvas.Brush.Color := clWhite;
  PaintBox1.Canvas.FillRect(Rect(0, 0, PaintBox1.Width, PaintBox1.Height));
  if ((QRCodeBitmap.Width > 0) and (QRCodeBitmap.Height > 0)) then
  begin
    if (PaintBox1.Width < PaintBox1.Height) then
    begin
      Scale := PaintBox1.Width / QRCodeBitmap.Width;
    end else
    begin
      Scale := PaintBox1.Height / QRCodeBitmap.Height;
    end;
    PaintBox1.Canvas.StretchDraw(Rect(0, 0, Trunc(Scale * QRCodeBitmap.Width), Trunc(Scale * QRCodeBitmap.Height)), QRCodeBitmap);
  end;
end;
 
 
procedure TQRCodeDLLForm.Update;
var
  x: Integer;
begin
  x := GetQRCodeImagen(PChar(Edit1.Text), ComboBox1.ItemIndex, StrToIntDef(Edit2.Text, 4));
  ShowMessage(IntToStr(x));
  QRCodeBitmap.Handle := GetQRCodeImagen(PChar(Edit1.Text), ComboBox1.ItemIndex, StrToIntDef(Edit2.Text, 4));
  PaintBox1.Repaint;
end;
 
 
end.

En la dll, con letra BOLD, el código QRCodeBitmap.Setsize (QRCode.Rows, QRCode.Columns), genera el error ACCESS VIOLATION, pero solo en la dll, si la función la compilo en una aplicación de escritorio funciona correctamente.

 

Espero que esto sirva para el "empujoncito" que solicito.

 

Saludos cordiales a todos.

[Delphius]

Escribí un pequqeño programa que dibuja en un control PAINT un código de barras 2D, el QR. Quiero convertir mi programa a DLL, lo que necesito es exportar una función (GetQRCodeImagen) a la que le paso 3 parámetros, los datos a codificar, el tipo de codificación y el tamaño de la zona segura y la función me debe devolver el HANDLE del bitmap para que otras aplicaciones lo usen y puedan dibujar o imprimir el código. 

 

No entiendo. ¿Al final quien "pinta"? ¿Tu programa o un tercero?

Comenzaste diciendo que tu aplicación tiene la función de pintar o dibujar códigos de barras y/o QR.

Pero al final te contradices y dices que son las otras aplicaciones las que lo dibujan.

[Delphius]

Tendría que darle una repasada al TBitmap. Yo empleo otro componente para el tratamiento de imágenes (el TBGRABitmap) y me he acostumbrado a él.

Que falle en "modo dll" y no en la aplicación es para examinarlo más de cerca. Admito que tendría que repasar que limitaciones hay cuando se está diseñando una dll (hace tiempo que no hago una).

 

Al código que has puesto lo tengo que ver detenidamente. Lo que me llama poderosamente la atención es el método Update. En él invocas a la función 2 veces, la primera para mostrar el handle como valor numérico y la segunda para asociarlo al handle del bitmap.

Siento que te estás complicando innecesariamente.

 

Si no es mucha molestia, y se me permite un poco de crítica constructiva ¿Y cual es el objetivo de que sea por dll? ¿Tienes pensado hacer varias aplicaciones diferentes que hagan uso de dicha biblioteca? Porque si es para una única, y por tanto propia aplicación no tiene sentido. ¿Que esperas al hacerlo dll? ¿Que aplicaciones de tercero (que no sea tuyas) tendrán interés en usar TU DLL? ¿Hay alguna?

Piensa primero si realmente vale la pensa.

 

Otra cuestión, si la dll es quien asume el control de pintar en un handle, lo correcto no es que devuelva uno. Mas bien que reciba uno y pinte en él.

 

Saludos,

[Ricardo Mostalac]

Hola, tienes razón en cuanto a la doble invocación, esta así porque he estado haciendo pruebas y olvidé quitar una de ellas antes de pegar el código en mi mensaje. El procedure debe quedar de la siguiente manera:

php

procedure TQRCodeDLLForm.Update;
begin
 QRCodeBitmap.Handle := GetQRCodeImagen(PChar(Edit1.Text), ComboBox1.ItemIndex, StrToIntDef(Edit2.Text, 4));
 PaintBox1.Repaint;
end;

Esto es un requerimiento de un cliente. El cliente quiere una dll que le entregue la imagen de un código QR. La dll la va a utilizar desde ABAP en un SMART FORM.