запись в порт по-максимуму :)

[Спартак]

Доброго времени суток!!
Подскажите, кто может... есть кусок кода...

function Send(s: string) : boolean;
var
BytesWritten : DWord;
d : array[1..1024] of char;
i : integer;
begin
for i := 1 to length(s) do d[i] := s[i];
Send := WriteFile(ComFile, d[1], Length(s), BytesWritten, nil);
end;

эта функция должна записывать то, что пришло ей в качестве параметра, в com-порт... экспериментально было установлено, что при длине строки 1024 символа(байта), переменная BytesWritten принимает значение 512!!
Неужели в порт можно передать только 512 байт??

[B_N]

А по ту сторону порта данные кто-нибудь принимает? Или Вы буфер драйвера на прочность испытываете?

[Спартак]

Сообщение от B_N

А по ту сторону порта данные кто-нибудь принимает? Или Вы буфер драйвера на прочность испытываете?

принимает, но больше, чем 512 байт... при этом то, что отправили фактически(1024 байта) не равно тому, что пришло... читается из порта меньше, чем 1024 байта

[Vald]

Перед вызовом функции записи в порт необходимо указать размер очереди буфера. Сделать это можно так:
SetupComm(имя идентификатора порта,1024,1024);
затем очистить очередь:
PurgeComm(имя идентификатора порта, PURGE_TXCLEAR|PURGE_RXCLEAR);
это сишные функции , посмотрите как они должны у вас записываться.

[Спартак]

Сообщение от Vald

Перед вызовом функции записи в порт необходимо указать размер очереди буфера. Сделать это можно так:
SetupComm(имя идентификатора порта,1024,1024);
затем очистить очередь:
PurgeComm(имя идентификатора порта, PURGE_TXCLEAR|PURGE_RXCLEAR);
это сишные функции , посмотрите как они должны у вас записываться.

большое спасибо!! помогло