Discussion :

[jbrg]

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 ?

[pprem]

Hello, tu as vraiment les guillemets dans la chaine de caractères ?

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

[ShaiLeTroll]

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

[jbrg]

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.

[Paul TOTH]

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

[ShaiLeTroll]

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

[SergioMaster]

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');

[pprem]

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).

[Paul TOTH]

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

[jbrg]

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.

[Paul TOTH]

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 ?

[ShaiLeTroll]

Quels sont toutes les uses de la forme contenant le TWebBrowser ?

[jbrg]

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;