VPF::[Delphi]Ошибка компиляции с библиотекой freeinet

shoker

Дата 22.8.2012, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 19.5.2012

Репутация: нет
Всего: нет

такая проблема.хотел прокомпилить демку,прилагающуюся к библиотеке freeinternet,вот собственно строки кода и ошибки которые появляются при компиляции :

Код


Handles[K] := LoadLibrary(Names[K]);

ошибка:[Error] W32SysLow.pas(319): Left side cannot be assigned to

Код


CurXPos := sbi.dwCursorPosition.x;
CurYPos := sbi.dwCursorPosition.y;

ошибка:[Error] W32SysLow.pas(451): Left side cannot be assigned to

Код


tidCursor := -1;
tidCursor := -2;

ошибка:[Error] W32SysLow.pas(1224): Left side cannot be assigned to

Код


hKbdDll := LoadLibrary(KbdDllName);

ошибка:[Error] W32SysLow.pas(1240): Left side cannot be assigned to

Код


pKbdInit(pSysKeyCount, pSysKeyQue, pSysShiftState, pSysMouCount, pSysMouQue);

ошибка:[Error] W32SysLow.pas(1253): Constant object cannot be passed as var parameter

Код


Keys := [0]
SysSpecialKeys := [0, $E0];

ошибка:[Error] W32SysLow.pas(1258): Left side cannot be assigned to

Код


CrtScanCode := 0;

ошибка:[Error] W32SysLow.pas(1315): Left side cannot be assigned to

Код


CrtScanCode := 0;
CurXPos := sbi.dwCursorPosition.x;
CurYPos := sbi.dwCursorPosition.y;
semCursor := SemCreateEvent(nil, false, false);

ошибка во всех строках:[Error] W32SysLow.pas(1356): Left side cannot be assigned to

Код


BeginThread(nil, 16384, CursorThreadFunc, nil, 0, Cardinal(tidCursor) );

ошибка:[Error] W32SysLow.pas(1357): Constant object cannot be passed as var parameter

Код


SysPlatform := SysPlatformID;
urXPos := X;
CurYPos := Y;
First := False;
ReadFrom.Right := Size.X;
ReadFrom.Bottom := Size.Y;
SysPlatform := SysPlatformID;
Root[0] := Drive;
Root[0] := Drive;

ошибка:[Error] W32SysLow.pas(1436): Left side cannot be assigned to

Код


if not ReadConsoleOutput(SysConOut, Buffer, Coord, UpLeft, ReadFrom) then

ошибка:[Error] W32SysLow.pas(1769): Constant object cannot be passed as var parameter

у меня delphi 7 update1 исодник не я писал,это демка входящая в состав библиотеке,помогите пожалуйста объяснить ошибки:)
весь исходник и библиотеку прикрепил к теме

Присоединённый файл ( Кол-во скачиваний: 4 )

FreeNet.zip 144,15 Kb

shoker

Дата 23.8.2012, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 19.5.2012

Репутация: нет
Всего: нет

разобрался,мешал порт одной библиотеки...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »