Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #4  
Старый 19.09.2015, 03:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,107
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ага, вот тут, скорее всего, собака и порылась.
Первое, что смущает в твоем коде:
Код:
1
ReadFile(F, pRes^, dwResSize, dwRead, nil);
Зачем разименовывать указатель на буфер? PChar - это уже указатель. Убери "крышку".
Далее, если не поможет, начинаем разбираться с Unicode.
Для начала попробуй так:
Код:
1
ShowMessage(AnsiString(FileOpenText('loginusers.txt')));
А еще лучше, наверное, сделать так:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function FileOpenText(strFile:PChar):String;
var
  f:thandle;
  dwResSize, dwRead:DWORD;
  pRes: AnsiString;
begin
  result:='';
  F:=CreateFile(pchar(strFile), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if F=INVALID_HANDLE_VALUE then exit;
  dwResSize:=GetFileSize(F, nil);
  SetLength(pRes,dwResSize);
  ReadFile(F, pRes[1], dwResSize, dwRead, nil);
  CloseHandle(F);
  Result:=pRes;
end;
  
....
  
ShowMessage(FileOpenText('loginusers.txt'));

Кстати, вопрос. А зачем надо это делать через API? Стандарных функций паскаля недостаточно?

Последний раз редактировалось lmikle, 19.09.2015 в 03:11.
Ответить с цитированием
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:56.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025