Форум: "Система";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
ВнизString - тип Byte Найти похожие ветки
← →
sashak (2003-07-10 10:30) [0]Мастера, кто знает?
Нужно строку String перевести в тип Byte.
Есть такая функция? Спасибо.
← →
MBo (2003-07-10 10:32) [1]это как?
покажи пример
← →
sashak (2003-07-10 10:43) [2]Мне нужно послать в порт команду, считаную из файла.
Пишу так и работает:
var a: file of byte;
data: byte;
i: integer;
Дальше
if OpenDialog1.Execute then
begin
AssignFile (a,OpenDialog1.FileName);
Reset (a);
while not eof(a) do
begin
i:=i+1;
Дальше
read (a,data);
//readfile(hcom,databuf,sizeof(databuf),bytes,nil) then
// readbyte:=databuf
writebyte (data);
//writefile(hcom,data,sizeof(data),bytes,nil);
end;
CloseFile (a);
( "Передача файла в COM порт завершена.") Мне нужно послать в порт команду, считаную из файла.
Пишу так и работает:
var a: file of byte;
data: byte;
i: integer;
Дальше
if OpenDialog1.Execute then
begin
AssignFile (a,OpenDialog1.FileName);
Reset (a);
while not eof(a) do
begin
i:=i+1;
Дальше
read (a,data);
//readfile(hcom,databuf,sizeof(databuf),bytes,nil) then
// readbyte:=databuf
writebyte (data);
//writefile(hcom,data,sizeof(data),bytes,nil);
end;
CloseFile (a);
ShowMessage ("Передача файла в COM порт завершена.");
end;
То есть работает.
Как заслать строку,что бы не читать из фала пока не придумал?
← →
MBo (2003-07-10 10:51) [3]var FS:TFileStream;
( Buf,FS.Size) var FS:TFileStream;
Buf:array of byte;
создать FS;
SetLength(Buf,FS.Size);
FS.Read(Buf[0],FS.Size);
writefile(hcom,Buf[0],FS.Size или сколько надо,bytes,nil);
← →
sashak (2003-07-10 10:54) [4]СПАСИБО! Уже пробую!
← →
sashak (2003-07-10 11:26) [5]Если пишу, то Error: незадекларированый идентификатор bytes
var FS:TFileStream;
Buf:array of byte;
begin
SetLength(Buf,FS.Size);
FS.Read(Buf[0],FS.Size);
writefile(hcom,Buf[0],FS.Size, bytes,nil);
Если пишу,Error: ожидается ( но , найдена
( hcom,Buf[0],FS.Size, byte,nil) Если пишу, то Error: незадекларированый идентификатор bytes
var FS:TFileStream;
Buf:array of byte;
begin
SetLength(Buf,FS.Size);
FS.Read(Buf[0],FS.Size);
writefile(hcom,Buf[0],FS.Size, bytes,nil);
Если пишу,Error: ожидается ( но , найдена
writefile(hcom,Buf[0],FS.Size, byte,nil);
Если не сложно глянь, чего я не делаю верно.
← →
MBo (2003-07-10 11:33) [6]так объяви переменную bytes:dword
и вначале, как я уже написал, нужно СОЗДАТЬ FS.
Судя по всему, надо быстренько за книжки садиться, а не писать программы, совершенно ничего не понимая в элементарных вещах
← →
sashak (2003-07-10 12:40) [7]Написал:
var bytes:dword;
FS:TFileStream;
Buf:array of byte;
begin
FS:= TFileStream.Create("C:\port.txt", fmOpenRead);
SetLength(Buf,FS.Size);
FS.Read(Buf[0],FS.Size);
( hcom,Buf[0],FS.Size,bytes,nil) Написал:
var bytes:dword;
FS:TFileStream;
Buf:array of byte;
begin
FS:= TFileStream.Create("C:\port.txt", fmOpenRead);
SetLength(Buf,FS.Size);
FS.Read(Buf[0],FS.Size);
writefile(hcom,Buf[0],FS.Size,bytes,nil);
Показывет Error: нельзя открыть файл. // В файле port лежит команда.
← →
Poirot (2003-07-10 13:30) [8]А ты проверял - может С на русском написана? или файла нет!!!
Или он залочен кемнить...
← →
led (2003-07-10 14:41) [9]С написана на engish да и файл существует...
← →
led (2003-07-10 15:10) [10]ПОШЛО в ПОРТ!!!!!!!
Спасибо MBo !
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.014 c