Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

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

 
murdor ©   (2004-01-08 17:53) [0]

Я понимаю что таких вопросов задано много но все-же еще разик..:)

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

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

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


 
Anatoly Podgoretsky ©   (2004-01-08 18:52) [1]

Ты просишь целого написания статьи, может тогда посмотреть существующие са сайте статьи.


 
murdor ©   (2004-01-08 19:06) [2]

блин... ваще фигня какая-то.. я написал прогу чтения из файла:
/-------------------------------------
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)


 
Новичек   (2004-01-08 19:37) [3]

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


 
murdor ©   (2004-01-08 20:22) [4]


> Новичек


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

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


 
tesseract ©   (2004-01-09 10:16) [5]

Человек закорючки - это твои корявые ручки :-) файл явно в разы меньше чем твой буфер, читай nbr - смотри сколько считано, или сначала смотри размер файла и не  считывай сколько не нужно. Закорючки появляются, потому, что массив у тебя объявлен локальной переменной, посмотри в Watch List что там такое, первые байты забиваются считанными из файла данными, остальные мусором и остаются.

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



Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
3-1077726667
Степан
2004-02-25 19:31
2004.03.28
ADO удаление записей


8-1069108895
Morg
2003-11-18 01:41
2004.03.28
как показать image во весь экран


11-1056811295
Юрий Ж.
2003-06-28 18:41
2004.03.28
Как задать шрифт RichEdit?


1-1078829136
Q
2004-03-09 13:45
2004.03.28
компонент для работы с dbf


4-1074244533
_hunter_
2004-01-16 12:15
2004.03.28
Изменение размера окна