Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

String ;- тип Byte

sashak © (2003-07-10 10:30:00)

Мастера, кто знает?
Нужно строку Stringперевести в тип Byte.
Есть такая функция? Спасибо.

led (2003-07-10 15:10:00) [1]

ПОШЛО в ПОРТ!!!!!!!
Спасибо MBo !

led (2003-07-10 14:41:00) [2]

С написана на engish да и файл существует...

Poirot (2003-07-10 13:30:00) [3]

А ты проверял - может С на русском написана? или файла нет!!!
Или он залочен кемнить...

sashak (2003-07-10 12:40:00) [4]
Написал:
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 лежит команда.

MBo (2003-07-10 11:33:00) [5]

так объяви переменную bytes:dword
и вначале, как я уже написал, нужно СОЗДАТЬ FS.

Судя по всему, надо быстренько за книжки садиться, а не писать программы, совершенно ничего не понимая в элементарных вещах

sashak (2003-07-10 11:26:00) [6]
Если пишу, то 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);

Если не сложно глянь, чего я не делаю верно.

sashak (2003-07-10 10:54:00) [7]

СПАСИБО! Уже пробую!

MBo (2003-07-10 10:51:00) [8]
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:43:00) [9]
Мне нужно послать в порт команду, считаную из файла.
Пишу так и работает:
vara: 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 порт завершена.")
Мне нужно послать в порт команду, считаную из файла.
Пишу так и работает:
vara: 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:32:00) [10]

это как?
покажи пример

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »