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 !

String - тип Byte Найти похожие ветки