Kodum şu şekilde.
Kod: Tümünü seç
Function _IFWD_DL_open_comm_port(channel : Integer; Port1,Port2 : PAnsiChar; Speed : Integer; result : PAnsiChar): Integer;
cdecl; external
'IFWD_DownloadDll.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
o:integer;
begin
_IFWD_DL_open_comm_port(1,'"\\.\USB1"','"\\.\USB1"',921600,0);
end;
http://dosya.co/bbvv3yxeu6ix/IFWD_DownloadDll.dll.html
dllenin foksiyonlarını gösterdiği bir program daha var orada şu şekilde yazıyor.
Kod: Tümünü seç
1,731: Func, IFWD_DL_open_comm_port: channel: 1, comm port name: "\\.\USB1", ctrl port name: "\\.\USB1"
1,731: FuncRes, IFWD_DL_open_comm_port: channel: 1, result: IFWD_DL_OK, status: "Channel 1 is succesfully opened."