Salut à tous,
Je n'arrive pas à utiliser MessageDlg dans un thread... si jamais je le fait, Delphi me renvoie ce message d'erreur en debug :
Code :
- ---------------------------
- Notification d'une exception du débogueur
- ---------------------------
- Le projet XXXXXX.exe a provoqué une classe d'exception EInvalidOperation avec le message 'Le canevas ne permet pas de dessiner'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
- ---------------------------
- OK Aide
- ---------------------------
|
Voilà le code que j'utilise pour la partie qui pose problème :
Code :
- // Procédure Click sur bouton Send (Envoi de fichiers)
- procedure TFRM_UMMain.BTN_SendClick(Sender: TObject);
- var
- id : cardinal;
- begin
- if IdFTP1.Connected then CreateThread(nil,0,@UploadFile, nil,0,id);
- end;
|
Code :
- procedure UploadFile; stdcall;
- begin
- with FRM_UMMain do begin
- ../..
- MessageDlg(UM_GetErrorMessage('UMLO04'), mtError, [mbOK], 0);
- ../..
- end;
- end;
|
La finalité de tout ça : c'est de renvoyer un message d'info/d'erreur selon le cas à l'utilisateur dans un thread qui fait une boucle de traitement.
Cette partie de code est utilisée pour uploader des fichiers via FTP pour remettre dans le contexte.
Merci de vos conseils et d'une aide éventuelle car je continue à chercher mais toujour rien... d'où ce post