Работа с нетипизированными файлами

[JustKurt]

Добрый день!

Второй день пытаюсь разобраться, но никак не получается.
В общем ситуация такая -
сделал небольшую функцию, она пишет данные в последовательный порт.

Пишет либо String, либо самостоятельно вбитый массив HEX значений.
Так вот, мне необходимо в среднем отсылать в порт маленькие команды ( 5-6 байт) и большие файлы - от 50 кб до 30 мб.
Все бы хорошо, вбить данные в массив килобайт на 50 можно, но не 30 же метров
Почитал литературку - нашел варианты с потоками.
Так же некоторые функции, типа block read и некоторые другие.
Но не могу с ними разобраться.

Пытался Попробовать разбить файл на строки, которые можно будет отсылать. Но нужно будет посчитать количество строк в файле, разбить их на меньшие, если строка больше чем 255, и все это дело от и до конца отсылать.
Не осилил написание этого.

С потоками все еще сложнее - не получается и все.

В общем - в идеале бы сделать нечто, что могло бы пихать файл в поток - и затем отсылать их кусками.

Как сделано у меня -

function sendDTA(sToSend:string; var s:string):boolean;
var NumberWritten:dword;
begin
s:='';
 NumberWritten:=0;
if WriteFile(hCommFile,
            PChar(sToSend)^,
            Length(sToSend),
            NumberWritten,
            nil)=false then begin
 message_sys('Error! Cant sent DTA!');
   result:=False;
    exit;
  CloseHandle(hCommFile);
   end else begin
   s:=readstringfrmrs232;
                 result:=true;
             end;
end;

пример использования

 if sendDTA('Qery'+#$01#$05#$0F,s)=False
 then
exit
else
message_sys('Qery OK! DTA recived: '+copy(s,8,9));

Так вот, мне необходимо посылать в порт либо набор HEX данных, либо просто строку с данными из файла.
В файле все данные являются нужными, то есть не нужно производить никакого поиска - тупо отослать от начала до конца.

Пробовал переписать функцию посыла - но всегда получается все не так, как хотелось бы.


Буду благодарен за любую помощь. Спасибо за внимание.

[BaronTreep]

{ Используйте TFileStream для файлов и TBlockSerial из библиотеки http://synapse.ararat.cz/files/synaser.zip для портов }

const
  BufSize = 1024 // Можно взять и больше
var
  FStream : TStream;
  CPort   : TBlockSerial;
  Buffer  : packed array [0..1024] of byte; // byte или другой тип
begin
  BufSize := 1024;
  CPort   := TBlockSerial.Create;
  FStream := TFileStream.Create('_file_name_', fmOpenRead)
  try
    CPort.Connect('COM3');
    CPort.config(9600, 8, 'N', ONESTOPBIT, false, false);
    FStream.ReadBuffer(@Buffer, BufSize);
    CPort.SendBufferEx(@Buffer, BufSize, 10);
  finally
    CPort.free;
    FStream.Free;
  end;
end;

[JustKurt]

BaronTreep, Спасибо! пролили немного света на проблему! Но дело в том, что у меня своеобразный серийный порт ( на самом деле в виде ярлыка к USB устройству, в данном случае - Телефон SonyEricsson, подключенный к USB порту. Работаю не через модем, а через низкоуровневой интерфейс программирования), на самом деле я не смогу так отсылать поток.

 FStream.ReadBuffer(@Buffer, BufSize);

Можно ли как-то присвоить переменной значение и выводить ее как строку в буффер переменной? Иначе моя функция не работает, а пример для ком-портов не пойдет. =(

[BaronTreep]

Вы пишете последовательный порт = COM-порт:

http://ru.wikipedia.org/wiki/Последовательный_порт

USB - http://ru.wikipedia.org/wiki/USB

FStream.ReadBuffer(@Buffer, BufSize); - вы прочли кусок из файла (потока) в буфер, теперь у вас есть указатель. Вы можете написать его на порт. Читайте книжки Агурова по USB в Delphi.

[JustKurt]

За книгу спасибо!
Считаю, что вопрос решен - ушел читать)