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

Тема в разделе "Delphi - Система", создана пользователем eclipsevl, 12 окт 2007.

Статус темы:
Закрыта.
  1. eclipsevl

    eclipsevl Гость

    вобщем, у меня есть сурсы dll -ки, написанной на делфи. Я пишу программу на С++ с использованием этой функции, но есть некий трабл. это функция возвращает массив байт(var RS232Buffer:array of byte), мне нужно переделать ее так, чтобы она выдавала по одному байту за раз. помогите плз.
    Код (Text):
    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей