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

Вниз

Здраствуйте. Ошибка при использовании WriteFile?   Найти похожие ветки 

 
Oleon   (2002-09-17 12:59) [0]

Переносил проект с 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; //


 
ЮЮ ©   (2002-09-17 13:13) [1]

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

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


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

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


 
McSimm ©   (2002-09-17 13:31) [3]

var
nb: LongWord;


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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
6-98245
^SANYA
2002-07-30 01:18
2002.09.30
Sockets....


8-98229
Mike Ust
2002-05-29 14:51
2002.09.30
Запись VOX


1-98213
Uran
2002-09-17 09:48
2002.09.30
Как узнать размницу межда датами в днях!?


8-98235
TColor
2002-05-31 16:33
2002.09.30
TColor and HTML


1-98218
Anar
2002-09-18 16:33
2002.09.30
Чтение из тестового файла в ListBox