Re: FTDI BitGang - rychlost

[magixe@volny.cz]

Akorát jsem nyní zjistil že pokud nejdříve naplním Buffer
a pak ho odešlu je to podstatně rychlejší.
Což je velmi hezké ale jak vyřešit generování signálu
pro programátor - MISO/MOSI/SCK kde potřebuji defakto
generovat implulzy a data step by step a zároveň číst data
zpět ....

procedure TForm1.Button3Click(Sender: TObject);
var e,x:integer ;
begin

SetBitMode(255,1)                  ; // mask all output  // enable bit
mode
FT_Current_Baud := FT_BAUD_921600  ; // max speed x16
Set_USB_Device_BaudRate            ; // set speed

x:=0 ;
for e:=1 to 100000 do   // naplnění bufferu
begin
FT_Out_Buffer[x]:=255      ; // data
inc(x)                     ;
FT_Out_Buffer[0]:=0        ; // data
inc(x)                     ;
end;
Write_USB_Device_Buffer(100000); // write all data

end;