Переход проекта с Д5 на Д7, ошибка

← →
Dimich1978 (2005-08-08 10:39) [0]

[Fatal Error] Klient.dpr(23): Unit Windows was compiled with a different version of Types.DWORD
Вот такая вот ошибка выскакивает ,
это клиент асечный с http://icq2000cc.hobi.ru/sources/lesson1.zip
скачал, и вот ошибка. Непойму что сделать можно. Сподможите плиз.
Посмотрел http://www.developing.ru/forum/topic2290.html решене по этой ссылке непомогает. ДКУ удаяю, все тоже самое, ошибка сохраняется, может кто еще сталкивался и решил данную проблему. Буду признателен.

← →
Ega23 © (2005-08-08 10:41) [1]

Генофонд трогал?

← →
Dimich1978 (2005-08-08 11:22) [2]

не трогал

← →
Anatoly Podgoretsky © (2005-08-08 11:24) [3]

Удалить Types

← →
Dimich1978 (2005-08-08 11:38) [4]

Но в этом модуле хранятся все описанные типы.

← →
Dimich1978 (2005-08-08 11:42) [5]

Выкинул из проекта Types, ругаться продолжает на Types.DWord
program nICQ;

uses
Forms,
main in "main.pas" {Form1},
Packet in "Packet.pas";

{$R *.RES}

begin
Application.Initialize;
Application.Title := "nICQ";
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

← →
Anatoly Podgoretsky © (2005-08-08 12:01) [6]

Dimich1978 (08.08.05 11:38) [4]
В этом модуле нельзя хранить, требуется другое имя, поскольку это зарезервировано для модуля Борланд.

← →
Ega23 © (2005-08-08 12:12) [7]

Ты ещё Classes юнит назови. Или Windows

← →
Dimich1978 (2005-08-08 12:53) [8]

Я на это тоже внимание обратил, нов Д5 то работало..вот что смутило

← →
Dimich1978 (2005-08-08 13:43) [9]

Тут же появился вопрос еще один
конструкция
const OL : booLean = false;
потом в функции
OL := Result <> "127.0.0.1";
Ошибка
[Error] Packet.pas(449): Left side cannot be assigned to
В чем проблема, обратно говорюю чтов Д5 это все работает.
Сейчас исчу ответ в мануалах. Сподможите

← →
Ega23 © (2005-08-08 13:45) [10]

функция какой тип данных возвращает?

← →
Dimich1978 (2005-08-08 14:05) [11]

Вот вся функция:
const OL : booLean = false;
function Get_my_IP: string;
var wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
Result := "127.0.0.1";
try {Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
try {Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Result := p2;
except end;
try {Shut down WinSock} WSACleanup; except end;
except end;
OL := Result <> "127.0.0.1";
end;
Блин и еще в одном месте вылезла такая же фигня:
x:=length(blok)+27+length(sMess)+9;
Что0то после 5-ой версии много чего изменилось, да и я давно не программировал, помогите начинающему..плиз хелп.

> конструкция
> const OL : booLean = false;
> потом в функции
> OL := Result <> "127.0.0.1";

Может в D7 что-то изменилось в опциях компиляции, раз компилятор ругается, по сравнению с D5?

{$J+} const OL : booLean = false; {$J-}
либо
var OL : booLean = false;

← →
Dimich1978 (2005-08-08 14:36) [14]

Спасибо это помогло, ошибка пропала
и в первом случае и во втором.
Директива {$J+}-Что делает?

F1:

Syntax {$J+} or {$J-}
{$WRITEABLECONST ON} or {$WRITEABLECONST OFF}
Default {$J-}
{$WRITEABLECONST OFF}
Scope Local
The $J directive controls whether typed constants can be modified or not. In the {$J+} state, typed constants can be modified, and are in essence initialized variables. In the {$J-} state, typed constants are truly constant, and any attempt to modify a typed constant causes the compiler to report an error.

Dimich1978 (08.08.05 14:36) [14]
Ты должен благодарить Борланд, что они наконец сделали "константы" неизменяемыми и вместо того что бы продолжать творить бардак, изменил бы дизайн программы.

Переход проекта с Д5 на Д7, ошибка Найти похожие ветки