Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.036 c
7-1073040090
Tahion2
2004-01-02 13:41
2004.03.28
Как узнать устаовлен ли Service Pack 1 в Windows XP?


3-1077530992
Dimaz-z
2004-02-23 13:09
2004.03.28
Как в EhLib в гриде поставить нумерацию записей по порядку(1,2..)


14-1077812301
BL_BEARD
2004-02-26 19:18
2004.03.28
Где взять последнюю версию R&A Lib?


3-1077723225
Domkrat
2004-02-25 18:33
2004.03.28
Работа с *.DBF


1-1078394264
nexxiss
2004-03-04 12:57
2004.03.28
Цвет





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский