Вызвать функцию в таймере

[Ghennadiy]

Function ReadTEXT(BytesRead : dWord; timeout: cardinal = 500) : string;

как ее привильно выполнить?

[Человек_Борща]

Просто в OnTimer допиши:

var
  s:string;
begin
s:=readTEXT(aMySomeDATA);

//Что-то делаем
end;

все зависит от того что делает оная функция.


Если это Строковой поток, то:

var
  SS:TStringStream;
  Buff:array[0..255] of Char; //Буффер для чтения
  sReturn:string;
begin
  ss:TStringStream.Create('');
//вносим кол-во прочитанных байт
  sReturn:=ReadTEXT(ss.Read(Buff,Length(buff)),500);
  //что-то делаем
  ss.free;
end;

[Ghennadiy]

вот сама функция. нужно вывести в label.caption прочитанные данные, если это сделать потоком будет совсем круто
Спасибо за help!

Function USBReadTEXT(BytesRead : dWord; timeout: cardinal = 500) : string;
var
d: array[0..10000] of byte; {Readed Data}
s, buffer: string;
i, Tmp: Integer;
Ovr : TOverlapped;
count :cardinal; {Count = How mutch Readed Bytes}
begin
Result := '';
count:=0;
Fillchar( d, sizeof(d), 0 );
FillChar(Ovr, SizeOf(TOverlapped), 0);
Ovr.hEvent := CreateEvent(nil, true, FALSE, nil);
if not ReadFile(USBPORT, d, BytesRead, count, @ovr) then
if GetLastError=Error_IO_Pending then
if WaitForSingleObject(ovr.hEvent, timeout) = WAIT_OBJECT_0 then
GetOverlappedResult(USBPORT, ovr, count, false)
else CancelIo(USBPORT);
CloseHandle(Ovr.hEvent);
s := '';
for i := 0 to count-1 do
begin
Tmp:=ord(d[i]);
s := s + Char(Tmp);
end;
{Convert to String Text}
s := strtohex(s);
buffer:='';
for i:=1 to length(s) do
begin
if Odd(i) then
begin
buffer := '';
buffer := hextostr(s[i] + s[i+1]);
buffer := NurBestimmteZeichen(buffer,['0'..'9','a'..'z','A'..'Z','.'..':',' '..'?']);
result := result+buffer;
end;
end;
end;

[Ghennadiy]

up
не понимаю как ее врубить эту функцию, чесно