Inscription
23 juillet 2004
Dernière intervention
25 janvier 2020
Interventions
3 809
Signature
     <code>@+ Cirec</code>

problème avec : Md5 api, le celebre algorithme de hachage sous delphi

Bonjour. Cela fait maintenant une dizaine d'année que je m'appuie sur : Md5 api, le célebre algorithme de hachage sous delphi. Jusqu'à maintenant tout allait bien sous Delphi 7. Windows 10 est arrivé, Delphi7 n'est plus trop le bienvenu. J'ai donc porté mes programmes de Delphi 7 à Delphi XE5. Tout allait bien (après quelques... Lire la suite

opacité

Bonjour, j'ai besoin de jouer Avec l'opacité de Timage sur delphi 7

Prise de tete avec xml

Bonjour, J'ai une adresse pour récupérer un fichier xml qui me donne toutes les possibilités de mon appareil photo (serveur local de l'appareil photo). J'essaie d'exploiter ce XML en le mettant dans un TXMLDocument, mais quand je cherche un noeud que je sais exister, je ne trouve rien (LNodeElement:=nil). Voici mon code et merci de votr... Lire la suite

Dbgrid n'affiche pas les champs

Bonjour, Svp j'utilise RX embarcadero 10.3 une application VLC que j'ai eu à dévélopper sur Delphi7 il y a un peu longtemps, mais maintenant je le reprend sur RX xa ne m'affiche pas les contenus du Dbgrid par contre les données sont enrégistrées dans la BD. Le Dclick dans Dbgrid (dans du vide) m'envoie les données dans Edit mais sont invi... Lire la suite

Codage de Huffman

Bonjour, J'ai besoin d'une implémentation sous Delphi du codage de huffman. J'ai trouvé cette source en pascal https://codes-sources.commentcamarche.net/source/43155-huffman mais je n'arrive pas à l'intégrer dans Delphi. Merci d'avance. Lire la suite

mettre la derniere ligne en gras d un riche edit

Bonjour, les amis j ai un probleme dans ce fraguement de code: procedure MAKEBOLD(ARichEdit: TRichEdit; ARow: Integer; Afsstyle: TfontStyles); begin with ARichEdit do begin SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0); SelLength := Length(Lines[ARow - 1]); SelAttributes.Style := Afsstyle; SelLength := 0; end; end; // la pro... Lire la suite

set of string intersection et union

Bonjour, Je cherche à utiliser les fonctions + et * sur des set of mais le set of string n'existe pas. Cette possibilité existe bien dans python. a = [1,2,3,4,"B"]b = [2, "B"]sa = set(a)sb = set(b)c = sa.intersection(sb) Y a t'il une alternative? Merci d'avance, Phil Lire la suite

Erreur avec SelectDirectory [Résolu]

Bonjour, if not SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then exitelsebegin ScruteDossier(Dir, '*.jpg', attributs, True, '', ''); ........end; cette solution marche bien mais celle ci provoque une exception ??? je comprend pas pourquoi if SelectDirectory('Choisir un dossier', Extra... Lire la suite