C++ dll použita v Delphi – Delphi – Fórum – Programujte.com

Zdarec, mám takový menší problém s knihovnami, které jsou psány jinde jinde než v Delphách. Mám napsanou velmi jednoduchou knihovnu v C++, která slouží pouze jako cvičná, ale prostě mi to nějak nejde připojit s Delphama.  

********************DLL napsána v C++*****************************

setbit - zmení hodnotu bitu v bajtu

vstupní parametry - vstupní byte, poradí bitu, hodnota změněného bitu (0 nebo 1) --> vrací změněný byte

//*****************************************

BYTE _stdcall setbit(BYTE val, BYTE bitno, BYTE bitval)

{

      BYTE Maska[] = {1,2,4,8,16,32,64,128};

      if(bitval)

      {

            return val | Maska[bitno];

      }

      return val & ~Maska[bitno];

}

********************************************************************************

Prosím poraďte někdo kód do Delph. Děkuji moc

#1 Zeel
Přepis toho co máš do Pascalu/Delphi:

function setbit(val:byte; bitno: byte; bitval: byte):byte;
const maska : array[1..8] of byte = (1,2,4,8,16,32,64,128);
begin
  if bitval=1
    then val:=val or maska[bitno]
    else val:=val and not maska[bitno];
  setbit:=val;
end;

#2 JoDiK
U tak jednoduché knihovny je přepis snadný, ale představ si něco rozsáhlejšího. Možná o to jde, nepřepisovat dll, ale nějakým způsobem ji připojit, protože je objemná. Tazatel píše, že předložená dll je cvičná.

Z Delphi do C++ to jde, C++ Builder to používá, VCL je celá Delphi. Naopak to asi půjde taky  http://stackoverflow.com/questions/13558530/how-do-i-export-function-from-c-dll-and-use-in-delphi

hu

Díky moc za rady, myslím právě připojení a ne přepis, protože u větších knihoven je to zbytečná práce (celé je přepisovat). 

nejen zbytečná, ale i s rizikem značného počtu chyb

hu

#5 hlucheucho
ale kdyby se to firma rozhodla outsourcovat do Indie, tak by to bylo bez tohodle rizika... (tam by to byla naprosta jistota ze to zmrsi :))

#6 KIIV
  

#4 Zeel
Aha, tak jsem to špatně pochopil...

Tak nakonec jsem to napsal takhle, vůbec nevím, jestli je to správně. Program funguje a vypisuje to celkem věrohodný výsledek, ale tak ještě to sem hodil, kdyby si někdo všiml nějaké blbosti.  

function setbit(val:byte; bitno:byte; bitval:byte):byte; stdcall; external 'func.dll';


procedure TForm1.Button1Click(Sender: TObject);
var ByteVar:Byte;
begin
MessageBox(0,'DLL Loaded',0,0);
ByteVar:=setbit(2,1,1);        //Zadavatelné hodnoty
MessageBox(0,'Process End',0,0);
Label1.Caption:=IntToStr(ByteVar);
end;