Компонент CRC

Вверх ↑

Форумы Делаем компонентыКомпонент CRC ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 3655

Рейтинг: 69

#1: 2007-03-29 00:26:19 ЛС | профиль | цитата

Вот заготовка компонента.
Что то не пойму почему он от меня требует тип Cardinal

карма: 0

файлы: 1

CRC.zip [1.2KB] [283]

Ответов: 3655

Рейтинг: 69

#2: 2007-03-29 18:15:04 ЛС | профиль | цитата

Ну вот ,я думал кто нить поможет.

Galkov - перенеси топик в раздел Делаем компоненты

карма: 0

Ответов: 1305

Рейтинг: 29

#3: 2007-03-29 20:05:48 ЛС | профиль | цитата

Вячеслав, а что тут непонятного?

C:\Program Files\HiAsm\Elements\delphi\code\hiCRC.pas(27) Error: Incompatible types: 'String' and 'Cardinal'

C:\Program Files\HiAsm\Elements\delphi\code\hiCRC.pas(42) Error: Incompatible types: 'String' and 'Text'

C:\Program Files\HiAsm\Elements\delphi\code\hiCRC.pas(43) Error: Incompatible types: 'String' and 'Text'

смотрим коды:

1. Строка 27

   S := GetCheckSum(N);

При этом имеем, что

var S:string;
function GetCheckSum(FileName: string): DWORD;

Соответственно, строка 27 должна иметь вид

   S := Int2Str(GetCheckSum(N));

2. Строки 42 и 43

  Seek(F, FileSize(F) div 2);  
  Fsize := FileSize(F) - 1 - FilePos(F);

При этом имеем:

var F: file of DWORD;

Лезем в Kol и видим

function FileSize( const Path: String ) : Integer;

т.е. эти строки должны иметь вид

  Seek(F, FileSize(FileName) div 2);  
  Fsize := FileSize(FileName) - 1 - FilePos(F);

После исправлений компонент хотя бы начинает компилироваться. Правда, все равно не работает, но дальше копаться что-то не слишком тянет

=========================================

00:26 Thu 29 Mar 2007

Вячеслав, ночью спать нужно, а не компоненты писать

карма: 0

Ответов: 3655

Рейтинг: 69

#4: 2007-03-29 20:18:24 ЛС | профиль | цитата

v258, Блин ну я тупой

Спасибо

карма: 0

Форумы Делаем компонентыКомпонент CRC ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)