Thread qui ne se lance pas
Bonjour,
j'ai un problème avec une de mes applications qui a un thread qui ne se lance que sur certaines machines et pas sur d'autres!
Il se lance parfaitement sur mon pc, sur celui d'une collègue, qui n'a aucun outil de developpement, par contre, cela ne fonctionne pas du tout sur 2 pc identiques à celui de ma collègue! 8O
J'avoue que je ne vois vraiment pas de quoi il pourrait s'agir!
Je vous joins le code
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
|
type
TUpdateThread = class(TThread)
private
{ Déclarations privées }
protected
procedure Execute; override;
end;
// Déclaration dans les variables générales du unit
ThreadUpgrade : TUpdateThread;
// Dans un evenement OnClick d'un bouton
ThreadUpgrade := TUpdateThread.Create(false);
procedure TUpdateThread.Execute;
var
Fs, TFs : TFileStream;
MainXml, Ms, Tms : TMemoryStream;
LocalNode,LibraryNode,ServerNode, NewSeries : IXMLNode;
LibraryUrl, LibraryName, FileName, TmpDir, LibraryList, ZipFileName, EgrDirectory, LibraryCode : String;
LocalName, LocalVersion, ServerName, ServerVersion, Alphanum, Alphanum2 : String;
LibOFML : array of string[2];
i, j, NbrLib, GridRow, LibraryNameRow, SeriesInLibrary : Integer;
LibServerConfig, LibServerUrl, LocalSeriesNotExist : Boolean;
SeriesUrl: Boolean;
IniConfig : TIniFile;
R : TRect;
begin
ShowMessage('started');
....
....
end; |
Le contenu de l'execute est long, raison pour laquelle je l'ai supprimé; mais le plus important c'est la première fonction showmessage n'apparait même pas!