I am trying to get fast streaming in Delphi to work, without success.
I have corrected the compile errors in the sample code and it works in block capture or standard streaming modes.
if ps3000_handle > 0 then
begin
Fast_collect := True;
lstResults.Items.Clear;
no_of_values := max_values;
timebase := 13;
ps3000_set_ets ( ps3000_handle, 0, 0, 0 );
{ set channel A off }
ps3000_set_channel ( ps3000_handle, 0, false, false, 10 );
{ set channel B on }
ps3000_set_channel ( ps3000_handle, 1, true, false, 10 );
At this point, the run stops with a divide by zero error. I am fairly sure that is a misleading error indication and the problem is an illegal reference or similar.
ptuMicroSec equals 3
StreamingBufferSize = 100000
I would be grateful for help in resolving the problem.