| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Здраствуйте. Ошибка при использовании WriteFile? [D3, D6, NT4]

Oleon ©   (2002-09-17 12:59:00) 

Переносил проект с 3 на 6 Delphi
Текст ошибки : types of actual and formal var parametrs must be identical...

Код в программе :

var
s : String;
AText : String;
h, i, nb: integer;
cc: array[0..1] of char;
begin
AText := #13 + #10 + StrList.Text;
CharToOemBuff(PChar(AText), PChar(AText), Length(AText));
s := "LPT1";
h:=CreateFile(PChar(s), GENERIC_WRITE, FILE_SHARE_WRITE,
nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);

if(h <> INVALID_HANDLE_VALUE) then
begin
// i := GetSettingsInt("PrinterInit");
i := 64; //

---

Oleon   (2002-09-17 13:38:00) [1]

Спасибо!!!
Все заработало!

---

McSimm   (2002-09-17 13:31:00) [2]

var
nb: LongWord;

---

Oleon   (2002-09-17 13:24:00) [3]

WriteFile(h, cc, 2, nb, nil);
WriteFile(h, Pointer(AText)^, Length(AText), Pointer(nb), nil);

---

ЮЮ   (2002-09-17 13:13:00) [4]

>Текст ошибки : types of actual and formal var parametrs must be identical...

И что, примерять ошибку к каждой строке? Компилятор то указал строку, где несовпадает тип формального и фактического параметра

---

Наверх