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

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

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

I/O с API для файлов и портов на делфи????

murdor © (2004-01-08 17:53:00)
Я понимаю что таких вопросов задано много но все-же еще разик..:)

Братцы!!!!! Помогите начинающему программеру :) разобраться
в работе таких штук в делфи как работа с файлами (API)
Мне надо написать прогу для вывода в порт LPT на любую
из ножек битов, а также считывания битов, поступающих на порт.

но сначала надо-бы мне разобраться с простейшим:
-открыть файл на диске
-считать файл на диске
-вывести содержимое файла в редактор (например Мемо)
и обратная задача - содержимое редактора записать в какой
либо файл

Как все это реализовать???? киньте плз.. !!работающий!! простенький
примерчик.... И если не трудно, то опишите
ХУ-ЕС-ХУ (параметры)в таких хреновинах как
CreateFile(-чо тут такое-);
ReadFile(-чо тут такое-);
WriteFile(-чо тут такое-); ПОГИБАЮ...ОЧЕНЬ НАДО ПОНЯТЬ!!!!!
а то я че-то все никак не въеду в эту потеху...

tesseract (2004-01-09 10:16:00) [1]
Человек закорючки - это твои корявые ручки :-) файл явно в разы меньше чем твой буфер, читай nbr - смотри сколько считано, или сначала смотри размер файла и не считывай сколько не нужно. Закорючки появляются, потому, что массив у тебя объявлен локальной переменной, посмотри в Watch List что там такое, первые байты забиваются считанными из файла данными, остальные мусором и остаются.

ЗЫ! Ещё раз прочти про переменные и указатели!!!

murdor (2004-01-08 20:22:00) [2]

> Новичек

> помоему так:
> Memo1.Loadfromfile('1.txt')

да точно... спасибо огромное :);
а как мне быть если например я буду читать порт лпт и мне надо вывести данные в мемо???

Новичек (2004-01-08 19:37:00) [3]
помоему так:
Memo1.Loadfromfile('1.txt')

murdor (2004-01-08 19:06:00) [4]
блин... ваще фигня какая-то.. я написал прогу чтения из файла:
/-------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var f:THandle;
FName:string;
Buff:array [0..500] of char;
NBR: DWORD;
CB:integer;
begin
cb:=500;
FName:='c:\qw.qqq';
f:=CreateFile(pChar(FName),GENERIC_READ,
FILE_SHARE_READ,nil,OPEN_EXISTING,0,0);
ReadFile(f,Buff,cb,NBR,nil);
Memo1.Lines.Text:=buff;
CloseHandle(f);
end;
/---------------------------------------------
фаил qw.qqq содержит такой текст:1234567890
fgeheth

а при запуске проги в текстовом редакторе светится:
1234567890
fgehethбwёiQ

причем при копировании EXE-шки программы куда-нибудь в другое место, символы после ...eth++++ меняются на другие закорючки...

Че за фигня такая??? Мож кто знает а??? (винда у меня 2к 4SP)

Anatoly Podgoretsky (2004-01-08 18:52:00) [5]
Ты просишь целого написания статьи, может тогда посмотреть существующие са сайте статьи.

Наверх

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