Проблем с компонент

Свалих си един компонент и не мога да го кача на Delphi 5. Основния модул на компонента използва друг модул, който обаче е без сорс (имам .dcu файла, но нямам .pas файла) и средата отказва да го компилира - гърми с Fatal error - File not found и си иска .pas файла :( Не знам защо създателя на компонента не го е компилирал в пакет.

Какво да правя?

Ами, ако са ти оправени директориите, мога да те посъветвам да търсиш автора или да компилираш на друга версия. Вероятно DCU-то не е за Delphi5.

Компонента е писан за Delphi 3 и си мисля, че би трябвало да има някаква обратна съвместимост, ама знам ли.....

1. Проверяваш дали наистина има такъв dcu файл - и дали е достъпен (т.е. да е посо4ен пътя му)

2. Ако горното е изпълнено - проверяваш дали dcu файла е за същата версия - използването на пакет не решава проблема с различните версии !

3. Търсиш upgrade за този компонент - ако има.

4. Търсиш заместител на компонента ;-))) или пишеш свой!

---
Е т'ва е живот!

Компонента е TVGA за D3 и го свалих от Torry. Бих си купил и сорса ($10), но нямам възможност за разплащане с кредитна карта. Все си мисля, че от Borland би трябвало да са помислили за съвместимостта, ма знам ли.....

Иначе компонента служи за измерване честотите на развивката на монитора. ако знаех как, щях да си напиша собствен, но...

Защо не драснеш едно писмо на човека - ако се занимава още с Delphi - едва ли ще има нещо против да ти го компилира с по нова версия.
Другия начин е да си качиш D3/D4 ;-))) - след което да си направиш DLL и да го използваш в която си искаш версия - съжалявам но в момента не ми се инсталира ;-))) - май можеше да се стартира и от CD - ама не съм сигурен.

---
Е т'ва е живот!

А бе можеш да си го направиш - ама погледни и това...
[линк]

---
Е т'ва е живот!

ако е само за Width, Height, Color Depth и V Refresh на текущия монитор:

procedure TForm1.Button1Click(Sender: TObject);
var ScreenHDC : HDC;
sWidth, sHeight : Integer;
sColors : Integer;
sVRefresh : Integer;
begin
ScreenHDC := CreateDC('DISPLAY', nil, nil, nil);
sWidth := GetDeviceCaps(ScreenHDC, HORZRES);
sHeight := GetDeviceCaps(ScreenHDC, VERTRES);
sColors := GetDeviceCaps(ScreenHDC,BITSPIXEL);
sVRefresh := GetDeviceCaps(ScreenHDC,VREFRESH);
edit1.Text := Format('%d * %d pixels',[sWidth,sHeight]);
edit2.Text := Format('%d bits per pixel',[sColors]);
edit3.Text := Format('%d Hz',[sVRefresh]);
end;

това работи на NT/2000, предполагам че и на XP ще стане, но за 95/98 май няма да работи...
ако ти трябва H Refresh - търси нещо друго :-(

--------------------------------------
Започва Път от моят праг...

Мерси за линка, но не върши работа (под Win98), защото използва EnumDisplaySettings, което връща 0 или 1, ако честотата е Optimal или Adapter Default. Ще продължавам да търся, пък да видим ...

10x, но ми трябва за 98, а VRefresh member-а не се поддържа в 95/98/ME. Там май става само с директно четене на портовете...