немного изменить функцию Dll

  • Автор темы eclipsevl
  • Дата начала
Статус
Закрыто для дальнейших ответов.
E

eclipsevl

#1
вобщем, у меня есть сурсы dll -ки, написанной на делфи. Я пишу программу на С++ с использованием этой функции, но есть некий трабл. это функция возвращает массив байт(var RS232Buffer:array of byte), мне нужно переделать ее так, чтобы она выдавала по одному байту за раз. помогите плз.
Код:
function DoGetRS232Buffer(v,ar RS232Buffer:array of byte; var RS232BufferLength:integer):integer; stdcall export;
//;get received bytes from FIFO RS232 buffer
var
BufferLength,i:integer;
RS232BufferWriteLocal:integer;
P:^integer;
begin
BufferLength:=0;
Result:=NO_ERROR;
if RS232BufferLength>0 then
for i:=1 to RS232BufferLength do
begin
P:=@PGlobalRS232Buffer^[GlobalRS232BufferWritePos];
RS232BufferWriteLocal:=P^;
if (RS232BufferRead=RS232BufferWriteLocal) then
Break;
RS232Buffer[BufferLength]:=PGlobalRS232Buffer^[RS232BufferRead];
inc(BufferLength);
RS232BufferRead:=(RS232BufferRead+1) mod (GlobalRS232BufferEnd+1);
end;
RS232BufferLength:=BufferLength;
end;
цепляю весь проект может у кого-то есть свободное время ...
Посмотреть вложение Delphi7_project.rar
 

Вложения

Статус
Закрыто для дальнейших ответов.