請問一下....以下C++語法如何改成DELPHI ------------------------------------------------------------------- unsigned char BYTE ;    bool UseID::SelectID() {    BYTE ID[] = {'\x00', '\xA4', '\x04', '\x00', '\x07','\xA0', '\x00', '\x00', '\x00', '\x04', '\x90', '\x01'};    return Base::SendID(ID) == 0x9000 ? true: false; } -------------------------------------------------------------------- 謝謝各位大大的幫忙 發表人 -

This is a guess since I have no idea about your class UserID. Is it inherited from class Base?    

function UseID.SelectID: boolean;
const
   ID: array[0..11] of byte = (
       $00, $A4, $04, $00, $07, $A0, $00, $00, $00, $04, $90, $01 );
begin
    Result := (Base(self).SendID(ID) = $9000);
end;

謝謝william的回應 真是不好意思,問的太難懂了 我的問題是有關陣列的使用 -------------C -----寫的----DLL-------------------------------------- function IncomeingPDU(hContext :longint;PDU:ByteArr3):word;cdecl;external 'GM.DLL' name '@IncomeingPDU$qlpuc'; -----------------------TYPE------------------------------------------- TfncCnx = function (s : string) : THandle; ByteArr1 = array[0..15]of Byte; ByteArr2 = array[0..11]of Byte; ByteArr3 = array of Byte; -----------------------const------------------------------------------ ID: array[0..11] of byte = ( $00, $A4, $04, $00, $07, $A0, $00, $00, $00, $04, $90, $01 ); -----------------------CALL FUNCTION---------------------------------- procedure TForm4.FormActivate(Sender: TObject); VAR K:WORD BEGIN K:=IncomeingPDU(1,ID); END; 會有ERROR Incompatible types: 'Array' and 'dynamic array' -----------------然後我把他改成---------------------- var AAID:array of byteARR2; SetLength(AAID,Length(ID)); IDd:=ID; K:=IncomeingPDU(1,ID); 也會有Incompatible types: 'Array' and 'dynamic array' ------------------------------------------------------ DELPHI 的ARRAY 真的很難用 幫幫我吧!!!!!.........先謝了

引言:function IncomeingPDU(hContext :longint;PDU:ByteArr3):word;cdecl;external 'GM.DLL' name '@IncomeingPDU$qlpuc';

Are you sure PDU is of type ByteArr3?

Thx for william yes, i am sure and PDU is a dynamic array it create in C like: word IncomeingPDU(longint hContext;byte PDU[])

引言:Thx for william yes, i am sure and PDU is a dynamic array it create in C like: word IncomeingPDU(longint hContext;byte PDU[])

Then I think it is not the dynamic array you used in Delphi. PDU should be PByteArray (if the size (hContext?) <32767) or simply PByte.

引言: DELPHI 的ARRAY 真的很難用 幫幫我吧!!!!!.........先謝了

如果你真的了解 Delphi 的 dynamic array, 就不會有問題了... 遇到問題, 最好先了解問題.. 直接硬幹.. 效果不好 @@... 我的看法與 william 前輩相同..

謝謝兩位前輩的指教: 先撇開這個dynamic array問題不談 我還有一個問題想請教 -----------在C++---------------------------------------------- 假設說 ID 的function 宣告 word ID(INT IDNUM;byte SEND[];byte Receive[]) ----------------------------------------------------- ID function 的使用 BYTE SEND1[]={'\x00', '\xA4', '\x04', '\x00', '\x07'}; BYTE Receive1[]; WORD ID1; ID1=ID(2,SEND1,Receive1); COUT〈〈ID1;.......... COUT〈〈Receive1[0];............. COUT〈〈Receive1[1];......... .............    執行完以後因該可以哪到ID1,Receive1的值 -------------------------------------------------------- 那在DELPHI中宣告 function ID(IDNUM :INTEGER;SEND ARRAY OF BYTEbyte;Receive ARRAY OF BYTEbyte)word  ------------------------------------------ 使用 ID1:=ID(2,SEND1,Receive1); 可以哪到ID1,Receive1的值嗎?    還有DELPHI 有PASS BY reference  is like C 中有一段宣告 int *&A;與 int **&B 謝謝 發表人 - rookie 於 2003/06/09 16:57:51 發表人 - rookie 於 2003/06/09 18:05:59

I wonder who is responsibe to deallocate the memory allocated for Receive1??? Despite that, I think your declaration in Delphi is wrong.    function ID(IDNUM:integer; SEND: PByte; Receive: PByte): word;    Bute Receive is pass by value??? I really can't understand your C++ code. Can you post the code for function ID?    Personally I never use int *&A in C/C , perhaps a simple var A: integer in Delphi may work? for int **&B, could it be var B: PInteger?

THANKS FOR ANSWERING MY QUESTION There is a function declared in C++'s dll if i want to use that function in C I use below  ----------------------------------------------------------------- -----------------------------declar------------------------ Word (_cdecl *OutgoingAPDU) (HDEVICE_CONTEXT hContext,Byte APDU[],Byte ReceiveBuf[]); DLLInst=LoadLibrary("GM.DLL"); OutgoingAPDU = lpOutgoingAPDU) GetProcAddress(DLLInst, "@OutgoingAPDU$qlpuct2"); -----------------------------use---------------------- public ... WORD SendAPDU(BYTE *APDU, BYTE *resp); .... WORD RiEZReader::SendAPDU(BYTE *APDU, BYTE *resp) {     hDevice ==512;     return OutgoingAPDU(hDevice, APDU, resp); } it works good ----------------------------------------------------------------- I want to change to delphi but it is so hard for me all other functions workexcept Pass By reference value I declared function below in delphi ---------------------------------------------------------- {$R *.dfm} function OutgoingAPDU(hContext :longint; APDU:array of Byte;var ReceiveBuf:array of Byte):word;cdecl;external 'GM.DLL' name '@OutgoingAPDU$qlpuct2'; ------------------------use-------------------------------- function TForm4.OutAPDU(text :longint; APDU1:array of Byte;var Receive:array of Byte):word; begin RESULT:=OutgoingAPDU(text,APDU1, RECEIVE); ← I cannot Get any return from here end;

The main point is you cannot use Delphi's native dynamic array here. Borland has its own memory manager in handling dynamic array and it certainly does not work with other non-Borland product (I even doubt it could work with BCB). Maybe the declaration looks like: function OutgoingAPDU(hContext: longint; APDU: PByte; ReceiveBuf: PByte):word;cdecl;external 'GM.DLL' name '@OutgoingAPDU$qlpuct2'; But then where is the memory allocated/freed for ReceiveBuf???