Estimado Sres:
Siempre es un placer utilizar este recurso para evacuar mi dudas y en lo posible dar colaboración pero 🤔 bien recibo más ayuda 😁. Gracias por esa parte.
Al grano:
requiero utilizar una biblioteca creada en Visual Studio ya que requiero conectar una balanza ZEBRA MP7001 para realizar lectura de Peso, la documentación de la misma esta en su sitio
dejo aquí el enlace del SDK.
en fin tengo la duda más importante:
al realizar esto:
Código Delphi
[-]
procedure TCCoreScanner.Open(appHandle: Integer; sfTypes: PSafeArray;
lengthOfTypes: Smallint; out status: Integer);
begin
DefaultInterface.Open(appHandle, sfTypes, lengthOfTypes, status);
end;
procedure TForm1.btnWeightsClick(Sender: TObject);
var
Encabezado, Estado: Integer;
Tipo: array[0..0] of TSafeArrayBound;
TipoFinal: PSafeArray;
NumeberOfScannerTypes: SmallInt;
Conectador: TCCoreScanner;
begin
Conectador := TCCoreScanner.Create(Self);
try
Tipo[0].lLbound := 0;
Tipo[0].cElements := 10;
TipoFinal := SafeArrayCreate(VT_I1,1, Tipo);
NumeberOfScannerTypes := 1; Conectador.Open(0, TipoFinal, NumeberOfScannerTypes, Estado);
if Estado = 0 then
begin
lblEstadoEscaner.Caption := 'CoreScanner API: Open successful';
end
else
begin
lblEstadoEscaner.Caption := 'CoreScanner API: Open Failed';
end;
finally
Conectador.Free;
SafeArrayDestroy(TipoFinal);
end;
end;
Agradeciendo su ayuda;
Saludos;
novato_erick