Forum du club des développeurs et IT Pro - Delphi https://www.developpez.net/forums/ La FAQ Delphi]]> fr Fri, 17 Apr 2026 12:01:06 GMT vBulletin 15 https://forum.developpez.be/images/misc/rss.png Forum du club des développeurs et IT Pro - Delphi https://www.developpez.net/forums/ Migration de IBX vers FireDac https://www.developpez.net/forums/showthread.php?t=2183191&goto=newpost Mon, 13 Apr 2026 16:41:27 GMT Bonjour,
j'utilise Delphi XE10 avec une Base de données FireBird version 3.0.
j'ai une ancienne application développée avec des composants IBX qui fonctionne correctement.
j'ai migré cette application en utilisant FireDac. ça fonctionne sauf que j'ai constaté une dégradation
au niveau des performances surtout quand je fais des traitements Batch. Parcourir des Tables en Lecture via une Requete Sql de 15000 Enregistrements. Le Temps passe 12 minutes Avec les IBX à 1h22mn avec FireDac. J'ai beau cherché je ne trouve pas la cause d'un tel ralentissement. ]]> Delphi Med.Belarbi https://www.developpez.net/forums/d2183191/environnements-developpement/delphi/migration-ibx-vers-firedac/ <![CDATA[création d'un sous forum ANDROID]]> https://www.developpez.net/forums/showthread.php?t=2182974&goto=newpost Wed, 01 Apr 2026 13:19:14 GMT Bonjour, Envisagez vous la... Bonjour,

Envisagez vous la création d'un sous forum ANDROID, regroupant bien sur toutes les questions sur
Delphi-Android ? Ce sous forum pourrait très bien remplacer les KYLIX ou Delphi.net inutilisés depuis 2017.

Cela me permettrait également de ne faire des recherches que sur ce sous-forum au lieu de les faire sur tout
le forum Delphi (ce qui entraine un nombre de réponses trop important pour être utilisable).

Merci de votre attention et bonne journée à tous.. ]]> Delphi serge-07 https://www.developpez.net/forums/d2182974/environnements-developpement/delphi/creation-d-sous-forum-android/ Delphi et l’IA https://www.developpez.net/forums/showthread.php?t=2182892&goto=newpost Fri, 27 Mar 2026 08:46:49 GMT Bonjour, Quel sont les IA... Bonjour,

Quel sont les IA qui vous donnent pleines satisfactions avec Delphi ?

Pour l’instant, j’ai testé les versions gratuites de ChatGPT, Mistral, Claude et Gemini.

Là, je vient de me créer un compte (toujours gratuit) sur Groq, pour voir comment il se comporte avec Delphi.

Pour vous quel IA vous préférez pour Delphi ?

Autre question, quel plugin pour dialoguer avec les IA avez-vous installé dans Delphi. ]]> Delphi der§en https://www.developpez.net/forums/d2182892/environnements-developpement/delphi/delphi-l-ia/ Delphi 13.1 (64 bits) - Windows ARM https://www.developpez.net/forums/showthread.php?t=2182770&goto=newpost Fri, 20 Mar 2026 07:26:46 GMT ATTENTION - POUR l'INSTANT, CECI N'EST QU'UN BROUILLON
c'est pour cela que, pour l'instant, cette discussion est bloquée, je vais développer ce post au fur et à mesure de mes prises d'images écrans

Bien que Beta testeur, je n'avais pas compris en quoi Windows ARM pouvait bien m'intéresser, après tout je n'ai pas de machine Windows ARM c'était, du moins, mon sentiment.
Il a fallu la présentation de Delphi 13.1 le 19/03/2026 pour que je comprenne mon incompréhension.

Installation
Nom : C0-installation.png Affichages : 118 Taille : 97,7 Ko

Création d'un nouveau programme pour Windows ARM
Nom : C1-Nouveau.png Affichages : 99 Taille : 128,8 Ko
Images attachées
  
]]> Delphi SergioMaster https://www.developpez.net/forums/d2182770/environnements-developpement/delphi/delphi-13-1-64-bits-windows-arm/ <![CDATA[[Annonce] Delphi 13.1 est disponible]]> https://www.developpez.net/forums/showthread.php?t=2182768&goto=newpost Fri, 20 Mar 2026 07:06:16 GMT Cette nouvelle version est... Cette nouvelle version est disponible depuis le 19/03/2026 dans votre espace de téléchargement
Nom : Capture.png Affichages : 315 Taille : 64,5 Ko

Malheureusement, je n'ai pas eu le réflexe de prendre des images écrans lors de la présentation
Nom : capture.jpg Affichages : 298 Taille : 43,0 Ko
et celle-ci n'est pas encore disponible sur la chaine YouYube d'Embarcadero. [Edit]


Bon, vous avez bien lu c'est la version 13.1 donc vous écraserez la version 13.0 existante si vous l'installez. Si vous voulez garder les deux, la solution : une machine virtuelle.

Quelques nouveautés frappantes, selon mon ordre de préférence, liste non exhaustive :

  • Un nouvel outil indépendant, le Bitmap Designer pour les styles Firemonkey (personnellement je n'y adhère pas totalement, c'est un outil pour designer pas vraiment pour un développeur).
  • Des nouveaux styles, ou plutôt un re-design des apparences pour l'EDI et la VCL.
  • Des améliorations pour l'audit de Code (LSP).
  • Un nouvel OS cible que ce soit en VCL ou FMX : Windows ARM (attention uniquement avec Delphi 64 bits).
  • L'intégration de Parnassus (le gestionnaire de marque page) ce qui va un peu changer vos habitudes.



Quelques regrets, bien que couvert par des outils tiers le formatteur de code ou le refactoring ne sont toujours pas revenus.

Je pense que je vais créé une discussion pour chacun de ces points pour rester sur l'annonce générale (et son lot de complaintes habituelles ;))

annonce officielle
Images attachées
  
]]> Delphi SergioMaster https://www.developpez.net/forums/d2182768/environnements-developpement/delphi/annonce-delphi-13-1-disponible/ Delphi appel API ne fonctionne pas https://www.developpez.net/forums/showthread.php?t=2182675&goto=newpost Mon, 16 Mar 2026 16:42:23 GMT Bonjour j'essaie d'appeler un service pour récupérer un Bearer
L'appel dans Postman et dans Powershell fonctionne très bien

Code:
1
2
3
4
5
6
7
8
9
10
11
12
$headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
$headers.Add("Content-Type", "application/json")
 
$body = @"
{
    `"username`" : `"13`",
    `"password`" : `"*******`"
}
"@
 
$response = Invoke-RestMethod 'https://api.ptsrc.adeiz.com/api/authenticate' -Method 'POST' -Headers $headers -Body $body
$response | ConvertTo-Json

Quand j'essaie de faire ça dans Delphi j'ai toujours la réponse erreur 415 type de média non pris en charge

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm5.Button1Click(Sender: TObject);
 
var Ljsonobject:tJsonObject;
ltoken:string;
Litem:tjsonvalue;
begin
 
  Ljsonobject:=TJSONObject.Create;
  Ljsonobject.AddPair('username','13');
  Ljsonobject.AddPair('password','******');
//
  Memo1.lines.add(Ljsonobject.ToJSON);
//
  RESTClient1.BaseURL:='https://api.ptsrc.adeiz.com/api/authenticate';
  restclient1.po
  RESTRequest1.AddBody(Ljsonobject.tojson);
 
  RESTRequest1.execute;
  memo1.lines.add(RESTResponse1.Content);
end;
RESTDEBUGUEUR me donne ça qui fonctionne
Citation:
object RESTClient1: TRESTClient
Authenticator = SimpleAuthenticator1
BaseURL = 'https://api.ptsrc.adeiz.com/api/authenticate'
Params = <>
SynchronizedEvents = False
end
object RESTRequest1: TRESTRequest
AssignedValues = [rvConnectTimeout, rvReadTimeout]
Client = RESTClient1
Method = rmPOST
Params = <
item
Kind = pkREQUESTBODY
Name = 'body5E80281D4D8B40AFB2A68221EAB654D9'
Value = '{'#13#10' "username" : "13",'#13#10' "password" : "******"'#13#10'}'
ContentTypeStr = 'application/json'
end>
Response = RESTResponse1
SynchronizedEvents = False
end
object RESTResponse1: TRESTResponse
end
object SimpleAuthenticator1: TSimpleAuthenticator
end
mais je ne comprends pas comment remplir simplement la partie params surtout d'ou sort 'body5E80281D4D8B40AFB2A68221EAB654D9' ??

quelqu'un peut il m'aider ]]> Delphi nakos91 https://www.developpez.net/forums/d2182675/environnements-developpement/delphi/delphi-appel-api-ne-fonctionne/ <![CDATA[fermeture d'une autre aplication]]> https://www.developpez.net/forums/showthread.php?t=2182668&goto=newpost Mon, 16 Mar 2026 11:42:10 GMT bonjours a toutes et tous, ... bonjours a toutes et tous,
débutant en delphi7
apres avoir pas mal chercher sur les forum et sur le net
je vous pose ma question :

sauriez vous comment je pourrai fermer une autre application active depuis ma form ?
attention: il ne sagis pas d'une autre fiche dans le meme programme mais bien d'un autre exe que j'appel depuis ma form1
j'arrive a ouvrir un programme depuis un tbutton la pas de souci sa marche
j'appelle mon prog """" mon-prog1.exe """"
mais si j'essais de le refermé depuis ma form1.onclose ou depuis mon form1.button1.clic il ne se passe rien

j'ai bien essayer de le fermé avec cette comande dans un tbutton1 mais niette rien ne se passe
peut etre parceque le prog est en second plan ou arriere plan ?????? ou je ne trouve pas le handle ?
je doit surement mal faire mais je ne trouve pas quoi
pouvez vous m'aidé svp merci
cordialement

voici mon code actuel


Code:
1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
mon-prog1 :THandle;
begin
  mon-prog1 := FindWindow('mon-prog1',nil); //"""" mon-prog1 """"  est le nom de mon prog ouvert a refermé
  PostMessage(mon-prog1,WM_CLOSE,0,0); // ferme la fenêtre sans confirmation 
end;
]]> Delphi alll1 https://www.developpez.net/forums/d2182668/environnements-developpement/delphi/fermeture-d-aplication/ <![CDATA[centrage d'une form en haut de l'écran]]> https://www.developpez.net/forums/showthread.php?t=2182625&goto=newpost Fri, 13 Mar 2026 12:49:10 GMT bonjour a toutes et tous, ... bonjour a toutes et tous,
je suis débutant en delphi7
voici ma question:
je cherche le moyen de pouvoir centré ma form1 en haut et centré de mon ecrant pc car j'utilise plusieurs pc avec des taille écrant differente ou pc avec deux écrans
"""""comme une barre office par exemple """""

j'ai bien essayer les fonction poposition designer etc... mais la seul qui pourrait correspondre n'est pas dans position de ma form1.position ?

en gros je souhaite que ma form1 soit une barre en haut centré de mon écran quelque soit le pc ou taille écrant utiisé
connaissez vous une formule qui pourrait résoudre mon problème

Code:
1
2
 
form1.position := topdesktopcentré // ????
cordialement ]]> Delphi alll1 https://www.developpez.net/forums/d2182625/environnements-developpement/delphi/centrage-d-form-l-ecran/ <![CDATA[[Delphi][10.2.3] class TDockableForm]]> https://www.developpez.net/forums/showthread.php?t=2182622&goto=newpost Fri, 13 Mar 2026 11:02:56 GMT Bonjour, je cherche a crée... Bonjour, je cherche a crée manuellement (sans ia donc) un plugin "dockable" donc me semble-il dérivant de TDockableForm, sauf que mon Delphi 10.2.3 pro, ne trouve pas cette classe, alors soit la version pro ne permet pas ceci, soit ce n'est pas la bonne approche.

Si ceux qui ont déjà codé des Plugin dockable pouvais m’éclairer, je les en remercie par avance... ]]> Delphi der§en https://www.developpez.net/forums/d2182622/environnements-developpement/delphi/delphi-10-2-3-class-tdockableform/ <![CDATA[De l'interet de l'IA]]> https://www.developpez.net/forums/showthread.php?t=2182511&goto=newpost Sun, 08 Mar 2026 07:31:16 GMT Bonjour, Voici un truc... Bonjour,

Voici un truc amusant qui m'a pris environ 5 minutes a obtenir une base avec Claude.ia:

Nom : Demo_Play_Video.jpg Affichages : 361 Taille : 131,0 Ko

Et environ 1 heure de plus pour passer outre certaines limitations des sites sur lequel, je vais regarder les vidéos.

Les contraintes rencontrés m'ont obligé a utiliser yt-dlp, ffmpeg et VLC:
  • yt-dlp : pour connaitre les vrai url ordinairement offusqué en javascript dans les navigateurs.
  • ffmpeg : si je veux télécharger certains format son + vidéo.
  • VLC : ces DLL pour voir la vidéo dans le programme.


Le tout sans taper une ligne de code, la vrai problématique n’était pas le code mais toute les protections a franchir...

Cela fonctionne avec Youtube et bien sur dailymotion.

Nom : Demo_Play_Video_2.jpg Affichages : 352 Taille : 113,8 Ko
Images attachées
  
]]> Delphi der§en https://www.developpez.net/forums/d2182511/environnements-developpement/delphi/l-interet-l-ia/ delphi11.2 utilisation webbrowser problem exec css leaflet OSM https://www.developpez.net/forums/showthread.php?t=2182467&goto=newpost Thu, 05 Mar 2026 12:22:17 GMT Bonjour,
j'utilise leaflet pour afficher map openstreetmap et localisation de markers dans une
application delphi11.2 à éxecuter sur W11 et Android.
Pour cela, execution d'un js inclus dans un fichier html.
et exec sous delphi: webbrowser.navigate(vurl);
Tout marche bien:Affichage de la cart, creation de markers,... .
Cependant, je souhaite ajouter affichage icone cercle avec pulsation, classique, en fait.
j'ai utilisé https://github.com/mapshakers/leaflet-icon-pulse
le probleme:
-sous navigateur firefox,.., tout marche bien comme prévu avec un cercle rouge animé
-Sous delphi avec webbrowser, je n'obtient qu'un carré rouge fixe sans animation
probleme lors exec ligne L.divicon ?

Ci-dessous le code html et 2screenshots.
Si quelqu'un a deja eu le probleme et a trouvé quelle solution...
grand merci pour une aide.
Bonne journée.

Nom : testosm2_sousnavigateurok.jpg Affichages : 188 Taille : 87,0 KoNom : testosm2_pbdivicon.jpg Affichages : 185 Taille : 135,9 Ko

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
Fichier HTML:
<!DOCTYPE html>
<html lang="fr">
   <head>
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no" />
    <script src="leaflet.js"></script>
    <link rel="stylesheet" href="leaflet.css" />
    <style>
      html, body {
        height: 100%;
        width: 100%;
        padding: 0;
        margin: 0;
        overflow:hidden;/*interdit scrollbars car probleme*/
      }
      #map {
        /* configure the size of the map */
        width: 100%;
        height: 100%;
      }	  
    </style>
    <script type="text/javascript">
    ...
    </script>
   </head>
   <body>
	<style>
        //Code CSS pour icone pulsation
	.gps_ring {
	  border: 3px solid red;
	  -webkit-border-radius: 40px;
	  height: 18px;
	  width: 18px;
	  -webkit-animation: pulsate 1s ease-out;
	  -webkit-animation-iteration-count: infinite;
	  /*opacity: 0.0*/
	}
 
	@-webkit-keyframes pulsate {
	  0% {
		-webkit-transform: scale(0.1, 0.1);
		opacity: 0;
	  }
	  50% {
		opacity: 1;
	  }
	  100% {
		-webkit-transform: scale(1.2, 1.2);
		opacity: 0;
	  }
	}
	</style>
 
	</style>
      <div id = "map"></div>
      <script>
        var map = L.map('map').setView([var_getlat(),var_getlon()], 15);
        var layer =L.tileLayer('http://{s}.tile.osm.org/{z}/{x}/{y}.png', {
        attribution: '&copy; <a href="http://osm.org/copyright">OpenStreetMap</a> contributors'}).addTo(map);
        //---------------------------------------------------------------------
	//Pulsation
        // define the marker path icon for web-pack not to be confused 
		var markerIcon = {
			  icon: L.icon({
			   iconSize: [25, 41],
			   iconAnchor: [10, 41],
			   popupAnchor: [2, -40],
			   // specify the path here
			   iconUrl:
				  "https://cdn.rawgit.com/pointhi/leaflet-color-markers/master/img/marker-icon-2x-green.png",
			   shadowUrl:
				  "https://cdnjs.cloudflare.com/ajax/libs/leaflet/0.7.7/images/marker-shadow.png"
		   })
		};
 
		// Define an icon called animatedCircleIcon and set the css
		var animatedCircleIcon = {
			  icon: L.divIcon({
			   className: "css-icon",
			   html: '<div class="gps_ring"></div>',
			   iconSize: [18, 22]
			})
		 };
 
		 // add the marker icon a (latitude,longitude)
		 L.marker([47,-1.5], markerIcon).addTo(map);
		 // add the animatedCircleIcon
		 L.marker([47,-1.5], animatedCircleIcon).addTo(map);
        //---------------------------------------------------------------------
        //L.control.fullscreen().addTo(map);
      </script>
   </body>
 
</html>
 
Fichier Delphi:
...
        {$IFDEF MSWINDOWS}
        Windows_SetPermissions;
        {$ENDIF}
        VTWebBrowser.URL   :='file://'+Vurlstr;
        //inherited Create(self,VTWebBrowser,'delphi');  // Initialise les parties héritées
        VTWebBrowser.Navigate;
...
Images attachées
  
]]> Delphi spearman https://www.developpez.net/forums/d2182467/environnements-developpement/delphi/delphi11-2-utilisation-webbrowser-problem-exec-css-leaflet-osm/ conversion valeur 0,0 en valeur a point 0.0 https://www.developpez.net/forums/showthread.php?t=2182444&goto=newpost Wed, 04 Mar 2026 14:04:13 GMT bonjour a toutes et tous,... bonjour a toutes et tous,
débutant en delphi7 très peut d'expèrience,
je cherche a convertir une valeur d'un label vert un edit mai avec un '.'

je recoie une valeur de mon capteur sur un label jusque la ras la valeur recu est 27,6
j'ai essayer de l'envoyer sur un edit mais j'ai une erreur a execution

il me semble que c'est la virgule qui pose problème car si je place manuelement 27.6 dans mon edit ma fonction qui suis fonctionne
meme mieux si je l'arrondi 27
donc

Code:
1
2
3
4
 
 
decimalseparator:= '.'; // essai de changer decimalseparator
edit1.text:= round(label1.caption); // essai d'arrondir ?

je le converti surement tres mal car il me semble que c'est un char decimalseparator donc pour un string delphi me dit niet

pouvez vous m'aidé svp
cordialement ]]> Delphi alll1 https://www.developpez.net/forums/d2182444/environnements-developpement/delphi/conversion-0-0-point-0-0-a/ fmx incrementer une couleur https://www.developpez.net/forums/showthread.php?t=2182404&goto=newpost Mon, 02 Mar 2026 13:49:56 GMT bonjour en FMX comment... bonjour
en FMX comment incrémenter une couleur Talphacolorrec ou Talphacolor
moi je fais sa mais il doit i avoir plus simple

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.TrackBar4Change(Sender: TObject);
var
  couleur:talphacolor;
  incremen:integer;
begin
 incremen:= round(form1.TrackBar4.value) ;
 couleur:=colore;
 talphacolorrec(couleur).r:=talphacolorrec(couleur).r+incremen;
 talphacolorrec(couleur).g:=talphacolorrec(couleur).g+incremen;
 talphacolorrec(couleur).b:=talphacolorrec(couleur).b+incremen;
 form1.Label11.Text:=inttostr(incremen);
 rectangle6.Fill.color:=couleur ;
end;
]]> Delphi tintin62 https://www.developpez.net/forums/d2182404/environnements-developpement/delphi/fmx-incrementer-couleur/ gestion de donnée sur le port com https://www.developpez.net/forums/showthread.php?t=2182390&goto=newpost Sun, 01 Mar 2026 20:19:16 GMT bonsoir a toute et tous, je... bonsoir a toute et tous,
je suis débutant en delphi7
je me suis créer un tout petit soft qui lit les donnée sur le port com avec tportcom

je recoie dans un label les donnée par rxchar du portcom1
le text recu est
360-45
j'aimerai pouvoir isolé les deux groupes de 3 chiffres en provenance de mon tlabel '' 360-45 ''
'' 360 '' et '' -45 ''

savez vous comment faire cela ?

Code:
1
2
3
4
5
6
7
8
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
 ComPort1.ReadStr(Str, 3); // selectionné le nombre de caractere 1 a 3 ?
 label1.caption:= (str);
 ComPort1.ReadStr(Str, 6); // selectionné le nombre de caractere 4 a 6 ?
 label2.caption:= (str);
end;
ou si vous avez un exemple de bout de code il serait le bien venu

cordialement ]]> Delphi alll1 https://www.developpez.net/forums/d2182390/environnements-developpement/delphi/gestion-donnee-port-com/ Recherche de logiciel delphi7 https://www.developpez.net/forums/showthread.php?t=2182385&goto=newpost Sun, 01 Mar 2026 11:35:56 GMT Salut à tous! Je suis... Salut à tous!
Je suis apprenant en programmation delphi. Je suis à la recherche de L'édition Delphi 7 professionnelle. Mon adresse mail : xtechnos87@gmail.com
manixtufukama@gmail.com.
Merci! ]]> Delphi Mtd87 https://www.developpez.net/forums/d2182385/environnements-developpement/delphi/recherche-logiciel-delphi7/