генерация PDF 417

[BARNEY]

Добрый день. Может у кого есть dll для генерация PDF 417 или PAS

гуглом пользовался нашёл кучу чего, но я не хочу отдельный компонент ибо потом его таскать везде.
нашёл DLL ТУТ, но не смог сообразить как это переделать в delphi.

Нашёл BcsPDF417.7z это , юзаю так

var
 h:Cardinal;
  decompose: function(v:WideString):WideString;stdcall;
 res:WideString;
begin
    h := LoadLibrary('cruflBCS.dll');
       if h>0 then
       begin
       @decompose := GetProcAddress(h,'BCSPDF417Encode');
        if @decompose <> nil then
        begin
          res:=decompose('gfhfgh fghgf');
          Label1.Caption := res;
        end;
       end;

но res всегда = '';

[Аватар]

А там резве не

BCSPDF417Encode(char* strToEncode, char& strOutput);

http://www.barcode-soft.com/barcodevcdll.aspx

[BARNEY]

я в С не силён, как понял char* это аналог Pchar

теперь возвращает "nil(#0)"

по ссылке Аватара есть код

typedef int (*LPFNDLLFUNC)(char*, char*);
char modulePath[] = "cruflbcs.dll";
HINSTANCE m_hLibInstance = LoadLibrary( modulePath );
if (m_hLibInstance != NULL)
{
lpfnDllFunc = (LPFNDLLFUNC)GetProcAddress(m_hLibInstance, "BCSPDF417Encode");
if (!lpfnDllFunc)
FreeLibrary(m_hLibInstance);
else
nReturn = lpfnDllFunc(pszInpara, szReturn);
}
FreeLibrary(m_hLibInstance);

сделал так

var
 h:Cardinal;
  //decompose: function(v : PChar):Integer;stdcall;
  decompose: function (ain,AOut: PCHar): Cardinal ;stdcall;
 ain:PChar;
 AOut: PCHar;
 i:Cardinal;
begin
    h := LoadLibrary('cruflBCS.dll');
       if h>0 then
       begin
       @decompose := GetProcAddress(h,'BCSPDF417Encode');
        if @decompose <> nil then
        begin
           i:=2;
           ain:='';
           AOut:='';
          ain:=PChar('gfhfghf ghgf fhfghghf fghfghgfhf fhgfhfghfgh');
          i:=decompose(ain,AOut);
         // Label1.Caption := res;
        end;
       end;

i=0 значит ошибок нет..как я понял, но AOut=''

Понимаю что делать что то не так... буду признателен если кто подскажет.

[Аватар]

А так

var AOut: array of Char;
...
      SetLength(AOut,1000);
      res:=decompose('gfhfgh fghgf', Addr(AOut[0]));

[BARNEY]

И так массив пустой..... точнее весь '#0'

[Аватар]

BCSPDF417Option - может предварительно это нужно? Еще BCSMicroPDF417Encode есть. Чего там фиг знает, первый раз вижу эту dll

[BARNEY]

По С++ ному примеру не надо. MicroPDF это другой вид штрихкода.

нашёл источник этой dll

http://www.barcodesoft.com/delphi-barcode.aspx

если зарегить и подключить как там написано ..всё прекрасно генерит,
делать это на каждом рабочем месте не хочется.

[Black Fregat]

Вынужден Вас огорчить: без регистрации DLL приведённый код на С всё равно не работает. Так что без регистрации на каждом рабочем месте, похоже, не обойтись.

[VIK_aka_TOR]

напишите батник который будет его регить от имени админа и делов то. А как по вашему иные программы устанавливают свои дрова для железа? Принтеры, геймпады и прочее. Выберите как автоматизировать регистрацию до уровня пары кликов и готово.

[BARNEY]

Black Fregat
Жаль, спс за тест.
VIK_aka_TOR
у меня больше 50 машин в области, у которых нет прав админа, нет домена + стоит куча софта по 152 ФЗ который не сильно даёт лазить где хочешь.

А хранить пароль админа на компе пользователя... мягко говоря глупо.