Discussion :

[exyacc]

bonjour,

j’étais en train de regarder votre tuto fasturldownload mais je n'arrive pas a le compiler, marche t-il sous delphi 2006?

dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

constructor TViewDownloadThread.Create(aURL :string; aMapFile, aReadyEvent :THandle; aOnTerminate :TNotifyEvent);

j'ai une erreur sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 inherited Create;

il veut un boolean en paramètre (createsuspended)

il connait pas :GetNativeSystemInfo , CPUCount ,FILE_READ_DATA,FILE_WRITE_DATA,SetFilePointerEx

ai-je oublié une unité ?

cdmt

greg

[ShaiLeTroll]

GetNativeSystemInfo , CPUCount ,FILE_READ_DATA,FILE_WRITE_DATA,SetFilePointerEx

Je pense que le uses Windows est manqaunt

createsuspended

Comme cela utilise un évènement pour l'ordre de démarrage,
False demarre le thread qui attendra son SetEvent
l'article est assez récent, il existe deux constructeur un avec paramètre et l'autre sans !

[exyacc]

le uses windows est bien présent.

en ajoutant JclSysInfo,JclWin32 j'enleve les erreurs sur GetNativeSystemInfo(SystemInfo), FILE_READ_DATA ,FILE_WRITE_DATA ;

[Andnotor]

Il y a un test de la version du compilateur qui conditionne la déclaration de constantes et fonctions. Il est réglé sur D7 et antérieurs (< 16) mais d'après ce que tu dis, il faudrait le mettre sur 18.5 minimum.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
{$IF CompilerVersion < 18.5}
const
  FILE_READ_DATA  = $0001;
  FILE_WRITE_DATA = $0002;
 
  procedure GetNativeSystemInfo(var aSystemInformation: TSystemInfo); stdcall; external kernel32;
  function  SetFilePointerEx(aFile: THandle; aDistance :int64; const aPointer :PInt64; aMethod :dword): bool; stdcall; external kernel32;
{$IFEND}

Erreur sur Create :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

inherited Create(FALSE);

CPUCount n'est pas très important. Tu peux le remplacer par 2.
Si tu veux cependant te baser sur le nombre de CPUs, tu peux également récupérer cette valeur par GetSystemInfo (dwNumberOfProcessors).