Главная страница
    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.038 c
1-1078932333
pasha_golub
2004-03-10 18:25
2004.03.28
НЕ могу поймать WM_NOTIFy


14-1078062719
Mox Fulder
2004-02-29 16:51
2004.03.28
Снова математика... Помогите!!!!


6-1074444963
Atlantt
2004-01-18 19:56
2004.03.28
Использование TClientSocket и TServerSocket для обмена данными


4-1073321817
Alexis
2004-01-05 19:56
2004.03.28
путь к директории через handle окна hwnd


14-1077768297
NOD
2004-02-26 07:04
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский