IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Composants FMX Delphi Discussion :

Problème avec le composant TWebBrowser sous Delphi Sydney 10.4.2 et Mac OS X


Sujet :

Composants FMX Delphi

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    février 2003
    Messages
    45
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 45
    Points : 36
    Points
    36
    Par défaut Problème avec le composant TWebBrowser sous Delphi Sydney 10.4.2 et Mac OS X
    Bonjour à tous,
    Je rencontre un problème avec le composant TWebBrowser sous Delphi Sydney 10.4.2 et Mac OS X.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     WebBrowser.Navigate('"file://ma page.html"');
    Cela fonctionné parfaitement auparavant, mais plus du tout avec Delphi Sydney.
    J'obtiens une page blanche.
    Mon projet est assez complexe et j'utilise beaucoup de composants Indy.
    J'ai fait un test rapide avec uniquement le TWebBrowser et cela fonctionnent.
    Je pense qu'il y a un conflit avec un autre composant, mais lequel ?
    Avez-vous rencontré récemment un problème avec le TWebBrowser ?

  2. #2
    Membre émérite Avatar de pprem
    Homme Profil pro
    MVP Embarcadero - développeur Delphi, PHP et JS
    Inscrit en
    juin 2013
    Messages
    1 114
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : MVP Embarcadero - développeur Delphi, PHP et JS
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : juin 2013
    Messages : 1 114
    Points : 2 359
    Points
    2 359
    Par défaut
    Hello, tu as vraiment les guillemets dans la chaine de caractères ?

    Si tu les retires, ça ne serait pas mieux ?

  3. #3
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    juillet 2006
    Messages
    12 219
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 12 219
    Points : 21 554
    Points
    21 554
    Par défaut
    Dejà sur Windows tu pourras avoir des difficultés pour "file://" ce que refuse les navigateurs par défaut, je n'ai pas encore testé via TWebBrowser, je suis une émulation IE 11 pour du Google OAuth mais rien de plus.
    Voir Emulation de IE par Edge Chromium
    Voir --allow-file-access-from-files (du moins trouvé une propriété similaire à ce paramètre de ligne de commande)

    Sur MacOS, vérifie le navigateur utilisé par le TWebBrowser et les options similaires à --allow-file-access-from-files
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  4. #4
    Nouveau membre du Club
    Profil pro
    Inscrit en
    février 2003
    Messages
    45
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 45
    Points : 36
    Points
    36
    Par défaut
    Concernant les guillemets, si je les enlève, j'ai une erreur fichier non trouvé.
    Le navigateur utilisé est Safari.
    J'ai testé d'affiché une autre page web en http et le résultat est le même. Une page blanche.

    Je pense qu'il y a un bug dans l'unité WebBrowser.cocoa
    Je vais attendre qu'Embarcadero le corrige.
    Ou cassé ma tire-lire et faire l'acquisition de la suite de chez TMS.

  5. #5
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    novembre 2002
    Messages
    8 224
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2002
    Messages : 8 224
    Points : 26 635
    Points
    26 635
    Par défaut
    la démarche dans ce cas de figure (à part poser la question ici, mais il n'y a pas bcp de dev sur OSX j'ai l'impression)...C'est

    1) aller sur https://quality.embarcadero.com/
    2) rechercher l'existence d'un bug ... je n'en trouve pas, vu que c'est une base internationale, ça met le doute
    3) tester à nouveau sur un projet simple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      WebBrowser1.Navigate('https://www.google.fr');
    end;
    sous Win32 -> OK
    sous OSX -> OK aussi

    Nom : Capture-1.png
Affichages : 115
Taille : 24,3 Ko
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  6. #6
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    juillet 2006
    Messages
    12 219
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 12 219
    Points : 21 554
    Points
    21 554
    Par défaut
    Safari ?
    Donc "Develop menu \ Disable Local File Restrictions "

    Avez-vous tester hors Delphi, d'utiliser Safari en direct et d'indiquer "file://ma page.html" ?
    Ce donne quoi ?
    Sur Chromium, par défaut ce n'est pas accepté.


    La version de Delphi, avez-vous vérifié si il y a une différence entre Sydney et la version que vous utilisiez jusqu'à présent, si c'est la même API Web qui est utilisé ?
    Peut-être une option dans un fichier conf, OSX est-il comme Windows un OS 32 et 64 Bits, une différence à ce niveau aussi ?
    La version OSX a-t-elle changé ?

    Voir dans TCommonWebBrowserService.DoNavigate, il y a explicitement une gestion sur "if Pos('file://', URL) <> 0 then" et "if Pos('http', URL) = 0 then"

    Le " au début doit nuire à cette ligne de code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    NewURL := Copy(URL, length('file://') + 1, length(URL));
    Et dans les version récente cela utilise TWebBrowser.FilesPref, à voir si c'est modifiable
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  7. #7
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    13 093
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 13 093
    Points : 35 618
    Points
    35 618
    Billets dans le blog
    54
    Par défaut
    la démarche dans ce cas de figure (à part poser la question ici, mais il n'y a pas bcp de dev sur OSX j'ai l'impression)
    Je plussoie ta démarche Paul
    (Je n'ai pas de machine à la pomme donc en général c'est plutôt Patrick qui répond à ces choses là)

    Toutefois, le problème n'est pas sur un Navigate sur un site mais sur un fichier local donc sur un file:// et le problème semble se poser parce que le nom du fichier contient un espace.

    Si cet espace était replacé par un %20 ? Du moins je crois que c'est bien unn %20 qui remplace l'espace, j'ai un petit doute tout d'un coup
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    WebBrowser.Navigate('file://ma%20page.html');
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio, Sidney) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

  8. #8
    Membre émérite Avatar de pprem
    Homme Profil pro
    MVP Embarcadero - développeur Delphi, PHP et JS
    Inscrit en
    juin 2013
    Messages
    1 114
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : MVP Embarcadero - développeur Delphi, PHP et JS
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : juin 2013
    Messages : 1 114
    Points : 2 359
    Points
    2 359
    Par défaut
    Citation Envoyé par jbrg Voir le message
    Concernant les guillemets, si je les enlève, j'ai une erreur fichier non trouvé.
    La question a te poser n'est-elle pas plutôt de savoir si le fichier existe à l'emplacement du navigateur ?

    Fourni un chemin absolu, pas juste le nom de fichier, selon la plateforme c'est peut-être pas exécuté dans le même dossier que le programme et ensuite fourni effectivement une URL valide, sans espaces et URL encodée (il y a ce qu'il faut dans TNetEncoding).

  9. #9
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    novembre 2002
    Messages
    8 224
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2002
    Messages : 8 224
    Points : 26 635
    Points
    26 635
    Par défaut
    Citation Envoyé par SergioMaster Voir le message
    Je plussoie ta démarche Paul
    (Je n'ai pas de machine à la pomme donc en général c'est plutôt Patrick qui répond à ces choses là)

    Toutefois, le problème n'est pas sur un Navigate sur un site mais sur un fichier local donc sur un file:// et le problème semble se poser parce que le nom du fichier contient un espace.

    Si cet espace était replacé par un %20 ? Du moins je crois que c'est bien unn %20 qui remplace l'espace, j'ai un petit doute tout d'un coup
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    WebBrowser.Navigate('file://ma%20page.html');
    oui mais je répondais à "J'ai testé d'affiché une autre page web en http et le résultat est le même. Une page blanche."

    sinon en effet file:// est une URL qui doit encoder les caractères comme il se doit, %20 est une forme possible, il est aussi possible d'utiliser un +
    https://www.w3schools.com/tags/ref_urlencode.ASP
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  10. #10
    Nouveau membre du Club
    Profil pro
    Inscrit en
    février 2003
    Messages
    45
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 45
    Points : 36
    Points
    36
    Par défaut
    J'ai testé une page web en https://www.google.fr et le résultat est le même. Une page blanche.
    Cela a fonctionné parfaitement auparavant, mais plus du tout avec Delphi Sydney.
    Mon projet est assez complexe et j'utilise beaucoup de composants Indy.
    Peut-être qu'il y a un conflit avec un autre composant.
    J'ai fait un test rapide avec uniquement le TWebBrowser et cela fonctionnent.
    Je ne peux pas vous en dire plus.
    Ce problème, pour l'instant, n'a pas été signalé sur le site d'Embarcadero.

  11. #11
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    novembre 2002
    Messages
    8 224
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2002
    Messages : 8 224
    Points : 26 635
    Points
    26 635
    Par défaut
    Citation Envoyé par jbrg Voir le message
    J'ai testé une page web en https://www.google.fr et le résultat est le même. Une page blanche.
    Cela a fonctionné parfaitement auparavant, mais plus du tout avec Delphi Sydney.
    Mon projet est assez complexe et j'utilise beaucoup de composants Indy.
    Peut-être qu'il y a un conflit avec un autre composant.
    J'ai fait un test rapide avec uniquement le TWebBrowser et cela fonctionnent.
    Je ne peux pas vous en dire plus.
    Ce problème, pour l'instant, n'a pas été signalé sur le site d'Embarcadero.
    je ne vois pas de rapport en Indy et TWebBrowser, mais si TWebBrowser seul fonctionne c'est qu'il y a un autre problème dans ton application.
    est-ce que tu as changé des propriétés de TWebBrowser par exemple ?
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  12. #12
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    juillet 2006
    Messages
    12 219
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 12 219
    Points : 21 554
    Points
    21 554
    Par défaut
    Quels sont toutes les uses de la forme contenant le TWebBrowser ?
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  13. #13
    Nouveau membre du Club
    Profil pro
    Inscrit en
    février 2003
    Messages
    45
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 45
    Points : 36
    Points
    36
    Par défaut
    Quels sont toutes les uses de la forme contenant le TWebBrowser ?
    Voici le début de l'unité qui gère le TWebBrowser.
    Je n'utilise que la fonction Navigate et rien d'autre.

    Cette forme me sert à envoyer par email les paramètres d'un filtre créé par l'utilisateur du logiciel.
    Le TWebBrowser affiche juste le règlement à respecter pour l'envoi du filtre.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    267
    268
    269
    270
    271
    272
    273
    274
    275
    276
    277
    278
    279
    280
    281
    282
    283
    284
    285
    286
    287
    288
    289
    290
    291
    292
    293
    294
    295
    296
    297
    298
    299
    300
     
    unit SettingsUnit;
     
    interface
     
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.IOUtils,
      System.Variants, FMX.Platform, IdHTTP, IdStack, System.Zip, Math, System.IniFiles,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
      FMX.TabControl, System.ImageList, FMX.ImgList, FMX.Controls.Presentation,
      FMX.StdCtrls, IdComponent, IdBaseComponent, IdTCPConnection, IdTCPClient,
      FMX.Colors, FMX.Edit, FMX.EditBox, FMX.SpinBox, FMX.WebBrowser, FMX.ListBox,
      FMX.ScrollBox, FMX.Memo, FMX.Layouts, FMX.Menus, FMX.Gestures, System.StrUtils,
      IdMessage, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdText,
      IdAttachmentFile, IdGlobal, IdCoderMIME, FMX.Ani, IdGlobalProtocols,
      FMX.Memo.Types,
    {$IFDEF MSWINDOWS}
    winapi.shellapi
    {$ENDIF}
    {$IF Defined(MACOS)}
    {$IFNDEF IOS64}
    Posix.Stdlib
    {$ENDIF}
    {$ENDIF POSIX}
    {$IF Defined(IOS)}
    IdURI, macapi.helpers, iOSapi.Foundation, FMX.helpers.iOS
    {$ENDIF}
    ;
     
     
     
    type
      TSettingsForm = class(TForm)
        ImageContainer: TImage;
        Rectangle1: TRectangle;
        Rectangle2: TRectangle;
        PageControl: TTabControl;
        TabLoad: TTabItem;
        TabGrad: TTabItem;
        Rectangle3: TRectangle;
        Rectangle4: TRectangle;
        ImageList1: TImageList;
        Image10: TImage;
        Button2: TButton;
        Button1: TButton;
        IdHTTP1: TIdHTTP;
        ProgressBar1: TProgressBar;
        RectangleProgress: TRectangle;
        Label1: TLabel;
        GradientEditor: TGradientEdit;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Mini: TSpinBox;
        HP: TSpinBox;
        LM: TSpinBox;
        Maxi: TSpinBox;
        HM: TSpinBox;
        SM: TSpinBox;
        LP: TSpinBox;
        SP: TSpinBox;
        Hue: TCheckBox;
        btnGenerate: TButton;
        btnCancel: TButton;
        btnOK: TButton;
        TabSheet1: TTabItem;
        Rectangle5: TRectangle;
        TabSheet2: TTabItem;
        TabSheet3: TTabItem;
        Rectangle6: TRectangle;
        Rectangle7: TRectangle;
        WebBrowser1: TWebBrowser;
        CheckBox2: TCheckBox;
        btnCancel1: TButton;
        Button4: TButton;
        AuthorEdit: TEdit;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        EmailEdit: TEdit;
        Label13: TLabel;
        SiteEdit: TEdit;
        Line1: TLine;
        Label14: TLabel;
        Label15: TLabel;
        FilterNameEdit: TEdit;
        Label16: TLabel;
        ComboBox: TComboBox;
        Label17: TLabel;
        Memo: TMemo;
        btnCancel2: TButton;
        Button5: TButton;
        Button3: TButton;
        Button6: TButton;
        Button7: TButton;
        Button8: TButton;
        Button9: TButton;
        Image1: TImage;
        Image2: TImage;
        FilterNameLabel: TLabel;
        FilterGroupLabel: TLabel;
        AuteurLabel: TLabel;
        EmailLabel: TLabel;
        SiteLabel: TLabel;
        DescriptionMemo: TMemo;
        SendButton: TButton;
        PanelImage: TRectangle;
        ImageList2: TImageList;
        ListBox1: TListBox;
        ListBoxItem1: TListBoxItem;
        ListBoxItem2: TListBoxItem;
        ListBoxItem3: TListBoxItem;
        ListBoxItem4: TListBoxItem;
        ListBoxItem5: TListBoxItem;
        ListBoxItem6: TListBoxItem;
        ListBoxItem7: TListBoxItem;
        ListBoxItem8: TListBoxItem;
        ListBoxItem9: TListBoxItem;
        ListBoxItem10: TListBoxItem;
        ListBoxItem11: TListBoxItem;
        ListBoxItem12: TListBoxItem;
        StyleBook1: TStyleBook;
        ImagePopupMenu: TPopupMenu;
        mn100: TMenuItem;
        mnHalf: TMenuItem;
        GestureManager1: TGestureManager;
        IdSMTP1: TIdSMTP;
        IdMessage1: TIdMessage;
        Image: TImage;
        AniIndicator1: TAniIndicator;
        Panel1: TRectangle;
        TabReg: TTabItem;
        Rectangle8: TRectangle;
        Button10: TButton;
        Button11: TButton;
        Label18: TLabel;
        EditRegName: TEdit;
        Label19: TLabel;
        EditRegCode: TEdit;
        TabAbout: TTabItem;
        Rectangle9: TRectangle;
        Button12: TButton;
        LabelReg: TLabel;
        LabelDate: TLabel;
        LabelActivation: TLabel;
        LabelFlagMaxActivation: TLabel;
        TabActivation: TTabItem;
        Rectangle10: TRectangle;
        Button13: TButton;
        Button14: TButton;
        EditActivationCode: TEdit;
        Label21: TLabel;
        btnActivation: TButton;
        Memo1: TMemo;
        Label20: TLabel;
        Memo2: TMemo;
        Label22: TLabel;
        Label23: TLabel;
        LabelName: TEdit;
        Label24: TLabel;
        LabelCode: TEdit;
        Image3: TImage;
        Label25: TLabel;
        Label26: TLabel;
        Rectangle11: TRectangle;
        TabPub1: TTabItem;
        Rectangle12: TRectangle;
        Button15: TButton;
        Button16: TButton;
        ImagePub1: TImage;
        IdHTTP2: TIdHTTP;
        TabRegMS: TTabItem;
        TabRegEmail1: TTabItem;
        TabRegEmail2: TTabItem;
        Rectangle13: TRectangle;
        Button17: TButton;
        Button18: TButton;
        Memo3: TMemo;
        Rectangle14: TRectangle;
        Button19: TButton;
        Button20: TButton;
        EditEmail: TEdit;
        EditFN: TEdit;
        Label30: TLabel;
        Label31: TLabel;
        Memo4: TMemo;
        Rectangle15: TRectangle;
        Button21: TButton;
        EditCode: TEdit;
        Edit6: TEdit;
        Label33: TLabel;
        Label34: TLabel;
        Memo5: TMemo;
        Button23: TButton;
        Label27: TLabel;
        EditLN: TEdit;
        Label28: TLabel;
        Timer1: TTimer;
        Timer2: TTimer;
        TabRegMS2: TTabItem;
        Rectangle16: TRectangle;
        Button22: TButton;
        EditCodeMS: TEdit;
        Label36: TLabel;
        Memo6: TMemo;
        Label29: TLabel;
        ListBoxItem13: TListBoxItem;
        ListBoxItem14: TListBoxItem;
        ListBoxItem15: TListBoxItem;
        ListBoxItem16: TListBoxItem;
        ListBoxItem17: TListBoxItem;
        ListBoxItem18: TListBoxItem;
        TabWelcome: TTabItem;
        Rectangle17: TRectangle;
        Button24: TButton;
        Image4: TImage;
        Label41: TLabel;
        Button25: TButton;
        procedure FormShow(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
          AWorkCount: Int64);
        procedure btnGenerateClick(Sender: TObject);
        procedure HueChange(Sender: TObject);
        procedure btnOKClick(Sender: TObject);
        procedure btnCancelClick(Sender: TObject);
        procedure btnCancel1Click(Sender: TObject);
        procedure CheckBox2Change(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button7Click(Sender: TObject);
        procedure ListBoxItemClick(Sender: TObject);
        procedure Button8Click(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure mn100Click(Sender: TObject);
        procedure mnHalfClick(Sender: TObject);
        procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Single);
        procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Single);
        procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Single);
        procedure Image2Click(Sender: TObject);
        procedure Button9Click(Sender: TObject);
        procedure Image1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo;
          var Handled: Boolean);
        procedure SendButtonClick(Sender: TObject);
        procedure Button10Click(Sender: TObject);
        procedure Button12Click(Sender: TObject);
        procedure FormResize(Sender: TObject);
        procedure Button13Click(Sender: TObject);
        procedure btnActivationClick(Sender: TObject);
        procedure Label20Click(Sender: TObject);
        procedure Label22Click(Sender: TObject);
        procedure Button15Click(Sender: TObject);
        procedure Button16Click(Sender: TObject);
        procedure Button17Click(Sender: TObject);
        procedure Button23Click(Sender: TObject);
        procedure Button19Click(Sender: TObject);
        procedure Button21Click(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
        procedure Timer2Timer(Sender: TObject);
        procedure Button22Click(Sender: TObject);
        procedure EditFNTap(Sender: TObject; const Point: TPointF);
        procedure Rectangle2Tap(Sender: TObject; const Point: TPointF);
        procedure Label29Click(Sender: TObject);
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        procedure Button11Click(Sender: TObject);
        procedure FilterNameEditKeyDown(Sender: TObject; var Key: Word;
          var KeyChar: Char; Shift: TShiftState);
        procedure Button25Click(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
        function ValidEmail : Boolean;
        function ValidEmail2 : Boolean;
        function MakeFileName : string;
        procedure MakeFilterFileIni;
        procedure MakeAuthorFile;
        procedure MakeMessage;
        procedure SaveImage1;
        procedure SaveImage2;
        procedure SaveImageSrc;
        procedure SetImage;
        procedure SetIcon;
        procedure SaveFilter;
        procedure SaveForm;
        procedure RestoreForm;
        procedure PutActivation;
      end;

Discussions similaires

  1. Problème Avec le composant IDFTP delphi 7
    Par QAYS dans le forum Composants VCL
    Réponses: 1
    Dernier message: 12/09/2007, 17h35
  2. Problème avec des composants non déclarés
    Par vbcasimir dans le forum Bases de données
    Réponses: 1
    Dernier message: 20/01/2005, 11h17
  3. problème avec une page web sous firefox!
    Par 3psilOn dans le forum Balisage (X)HTML et validation W3C
    Réponses: 1
    Dernier message: 24/11/2004, 11h49
  4. Equivalent TWebBrowser sous Delphi édition personnelle
    Par lil_jam63 dans le forum Composants VCL
    Réponses: 7
    Dernier message: 22/09/2004, 18h52
  5. Problème avec le port série sous Windows XP
    Par didou2dek dans le forum Composants VCL
    Réponses: 6
    Dernier message: 02/09/2003, 19h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo