Portage sur le WEB d'un exe Delphi 7.

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/09/2013, 19h22
Eric Beaumard

Portage sur le WEB d'un exe Delphi 7.

Bonjour,

Se pose pour moi le problème d'avoir à porter sur le WEB, 7 applications réalisées avec D7.

Le mot portage n'est peut-être pas complètement adapté puisque je pourrais me résigner momentanément (à terme je souhaite les réécrire en JavaScript mais là j'ai une urgence) à ce que l'application soit lancée quand l'utilisateur clique sur un bouton située sur la page web, et que l'application meurt avec la fermeture de la page web, comme se serait le cas si elle était écrite en PHP ou autre.

Pour ne pas avoir à tout réécrire en Javascript ou Java j'avais pensé à transformer les applications en DLL, lancer les DLL sur clique de l'utilisateur (avec JavaScript par exemple). Les applications sont fenêtrées (ont un GUI) mais je crois me souvenir que les DDL avec fenêtres graphiques sont possibles, je l'avais fait il y a longtemps.

Quelqu'un a-t-il déjà fait cela ? Qu'en pensez-vous ?

Je pense qu'il n'y a pas trop de problèmes (enfin dites-moi) mais quand même se pose la question de la présence de la DLL sur le PC de l'utilisateur.

Certains doivent rire devant tant de naïveté, tant pis pour moi ... :cry:

Serait-il possible de demander à JavaScript de "gérer" la DLL ? (la télécharger dans system32 ou autre si elle est absente).

Merci par avance.

Eric.
10/09/2013, 10h28
tenpigs

javascript qui lance une dll et/ou qui accède au système de fichier du pc ça me semblerait être une sacré faille de sécurité, ça doit être possible avec un activeX mais cela ne marchera que avec ie...

Peut être que tu peux envisager de réutiliser le code métier et de refaire seulement les interfaces avec intraweb : http://www.atozed.com/intraweb/index.en.aspxhttp://
10/09/2013, 10h47
Paul TOTH

Non ce n'est pas possible de cette façon.

une appli Windows, se lance, a une durée de vie, différents écrans et une interaction continue avec l'utilisateur.

une appli Web c'est 1 requête qui affiche 1 page, fin de l'histoire. A chaque requête, tout le contexte de l'application doit être reconstruit (ou pas selon les besoins ou l'architecture d'ailleurs).

un peu comme si chaque action de l'application Delphi devait être codée par un ShellExecute()

pour un portable rapide ActiveX peut être une solution en effet.

ensuite, reste à savoir ce que fait l'application, si l'interface visuel est sommaire mais que le code fait des tas de traitements très compliqués, tout cela peut être mis sur un serveur web en recréant des formulaires web.

au contraire si l'interface est prépondérante, ça ne sera pas possible.
10/09/2013, 13h47
Andnotor

Il faudra de toute façon une action de l'utilisateur pour télécharger et installer une application.
Il est ensuite possible d'y accéder par automation en javascript pour autant que le navigateur soit configuré pour l'autoriser.
13/09/2013, 10h46
Eric Beaumard

Merci pour la réponse. J'ai été essayer de voir de quoi il retournait sur le web, je n'y ai vu que des façons de lancer un activeX avec Javascript. Est-ce à cela que tu fais référence ? (ce qui ne m'aiderait pas) ou bien parles-tu d'exécuter un exe ou une dll avec JS automation ? si oui as-tu d'autres informations ?

Cdlt.

Eric.

Citation:

Envoyé par Andnotor

Il faudra de toute façon une action de l'utilisateur pour télécharger et installer une application.
Il est ensuite possible d'y accéder par automation en javascript pour autant que le navigateur soit configuré pour l'autoriser.
13/09/2013, 10h51
Eric Beaumard

Merci Tenpigs. Mais j'ai déjà exploré la question. Ca ne me convient pas.

Citation:

Envoyé par tenpigs

javascript qui lance une dll et/ou qui accède au système de fichier du pc ça me semblerait être une sacré faille de sécurité, ça doit être possible avec un activeX mais cela ne marchera que avec ie...

Peut être que tu peux envisager de réutiliser le code métier et de refaire seulement les interfaces avec intraweb : http://www.atozed.com/intraweb/index.en.aspxhttp://
13/09/2013, 11h52
Andnotor

Je parlais d'une application (exe) embarquant un serveur COM, mais ça se charge la même chose qu'un ActiveX : Server = new ActiveXObject("MonServeur.Quelquechose");.
13/09/2013, 17h52
Paul TOTH

En téléchargeant NotePad++ dernièrement j'ai découvert l’existence de SpawnApps qui pourrait être une alternative rapide.

Ce produit Java permet (j'ai pas tout à fait compris comment) d'embarquer une application Windows dans un navigateur...cf la démo de NotePad++

Citation:

Envoyé par Paul TOTH

En téléchargeant NotePad++ dernièrement j'ai découvert l’existence de SpawnApps qui pourrait être une alternative rapide.

Ce produit Java permet (j'ai pas tout à fait compris comment) d'embarquer une application Windows dans un navigateur...cf la démo de NotePad++

Merci pour l'info. Ca a l'air interessant, mais c'est payant. Reste à savoir combien et selon quelle formule ....

Pour le reste j'ai trouvé sur le net, et testé, de quoi télécharger et exécuter un exe en RAM (avec uses IdHTTP, IdComponent, uExecFrom_Mem;).

Maintenant se pose la sécurité d'un serveur WEB. Faut-il faire quelque chose pour l'augmenter ? Est-elle sans faille (peu de chance ...) ?
Il y a un pass et un login sur mon site, est-ce suffisant ? Htaccess ?

Si quelqu'un a des infos là-dessus...

Et oui au fait, comment savoir combien de fois l'.exe a été exécuté ...
Envoyer un mail à chaque exécution ? Modifier un fichier .txt du site (incrémenter un compteur écrit en ascii )?

D'autres idées ?

Eric.

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Http: TIdHTTP;
  MS: TMemoryStream;
begin
  Http := TIdHTTP.Create(nil);
  try
    MS := TMemoryStream.Create;
    try
 
      Http.URL.Username := 'MyUsername';
      Http.URL.Password := 'MyPassword';
 
      Http.Get('http://MySite/MyApplication.exe', MS);
      MS.Position := 0;
 
      ExecuteFromMem(ParamStr(0), '', MS.Memory);
 
    finally
      MS.Free;
    end;
  finally
    Http.Free;
  end;
end;

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
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
unit uExecFrom_Mem;
 
interface
 
uses Windows;
 
function ExecuteFromMem(szFilePath, szParams: string; pFile: Pointer):DWORD;
 
implementation
 
function NtUnmapViewOfSection(ProcessHandle:DWORD; BaseAddress:Pointer):DWORD; stdcall; external 'ntdll';
 
type
  PImageBaseRelocation = ^TImageBaseRelocation;
  TImageBaseRelocation = packed record
     VirtualAddress: DWORD;
     SizeOfBlock: DWORD;
  end;
 
procedure PerformBaseRelocation(f_module: Pointer; INH:PImageNtHeaders; f_delta: Cardinal); stdcall;
var
  l_i: Cardinal;
  l_codebase: Pointer;
  l_relocation: PImageBaseRelocation;
  l_dest: Pointer;
  l_relInfo: ^Word;
  l_patchAddrHL: ^DWord;
  l_type, l_offset: integer;
begin
  l_codebase := f_module;
  if INH^.OptionalHeader.DataDirectory[5].Size > 0 then
  begin
    l_relocation := PImageBaseRelocation(Cardinal(l_codebase) + INH^.OptionalHeader.DataDirectory[5].VirtualAddress);
    while l_relocation.VirtualAddress > 0 do
    begin
      l_dest := Pointer((Cardinal(l_codebase) + l_relocation.VirtualAddress));
      l_relInfo := Pointer(Cardinal(l_relocation) + 8);
      for l_i := 0 to (trunc(((l_relocation.SizeOfBlock - 8) / 2)) - 1) do
      begin
        l_type := (l_relInfo^ shr 12);
        l_offset := l_relInfo^ and $FFF;
        if l_type = 3 then
        begin
          l_patchAddrHL := Pointer(Cardinal(l_dest) + Cardinal(l_offset));
          l_patchAddrHL^ := l_patchAddrHL^ + f_delta;
        end;
        inc(l_relInfo);
      end;
      l_relocation := Pointer(cardinal(l_relocation) + l_relocation.SizeOfBlock);
    end;
  end;
end;
 
function AlignImage(pImage:Pointer):Pointer;
var
  IDH:          PImageDosHeader;
  INH:          PImageNtHeaders;
  ISH:          PImageSectionHeader;
  i:            WORD;
begin
  IDH := pImage;
  INH := Pointer(Integer(pImage) + IDH^._lfanew);
  GetMem(Result, INH^.OptionalHeader.SizeOfImage);
  ZeroMemory(Result, INH^.OptionalHeader.SizeOfImage);
  CopyMemory(Result, pImage, INH^.OptionalHeader.SizeOfHeaders);
  for i := 0 to INH^.FileHeader.NumberOfSections - 1 do
  begin
    ISH := Pointer(Integer(pImage) + IDH^._lfanew + 248 + i * 40);
    CopyMemory(Pointer(DWORD(Result) + ISH^.VirtualAddress), Pointer(DWORD(pImage) + ISH^.PointerToRawData), ISH^.SizeOfRawData);
  end;
end;
 
function Get4ByteAlignedContext(var Base: PContext): PContext;
begin
  Base := VirtualAlloc(nil, SizeOf(TContext) + 4, MEM_COMMIT, PAGE_READWRITE);
  Result := Base;
  if Base <> nil then
    while ((DWORD(Result) mod 4) <> 0) do
      Result := Pointer(DWORD(Result) + 1);
end;
 
function ExecuteFromMem(szFilePath, szParams:string; pFile:Pointer):DWORD;
var
  PI:           TProcessInformation;
  SI:           TStartupInfo;
  CT:           PContext;
  CTBase:       PContext;
  IDH:          PImageDosHeader;
  INH:          PImageNtHeaders;
  dwImageBase:  DWORD;
  pModule:      Pointer;
  dwNull:       DWORD;
begin
  if szParams <> '' then szParams := '"'+szFilePath+'" '+szParams;
 
  Result := 0;
  IDH := pFile;
  if IDH^.e_magic = IMAGE_DOS_SIGNATURE then
  begin
    INH := Pointer(Integer(pFile) + IDH^._lfanew);
    if INH^.Signature = IMAGE_NT_SIGNATURE then
    begin
      FillChar(SI, SizeOf(TStartupInfo), #0);
      FillChar(PI, SizeOf(TProcessInformation), #0);
      SI.cb := SizeOf(TStartupInfo);
      if CreateProcess(PChar(szFilePath), PChar(szParams), nil, nil, FALSE, CREATE_SUSPENDED, nil, nil, SI, PI) then
      begin
        CT := Get4ByteAlignedContext(CTBase);
        if CT <> nil then
        begin
          CT.ContextFlags := CONTEXT_FULL;
          if GetThreadContext(PI.hThread, CT^) then
          begin
            ReadProcessMemory(PI.hProcess, Pointer(CT.Ebx + 8), @dwImageBase, 4, dwNull);
            if dwImageBase = INH^.OptionalHeader.ImageBase then
            begin
              if NtUnmapViewOfSection(PI.hProcess, Pointer(INH^.OptionalHeader.ImageBase)) = 0 then
                pModule := VirtualAllocEx(PI.hProcess, Pointer(INH^.OptionalHeader.ImageBase), INH^.OptionalHeader.SizeOfImage, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE)
              else
                pModule := VirtualAllocEx(PI.hProcess, nil, INH^.OptionalHeader.SizeOfImage, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
            end
            else
              pModule := VirtualAllocEx(PI.hProcess, Pointer(INH^.OptionalHeader.ImageBase), INH^.OptionalHeader.SizeOfImage, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
            if pModule <> nil then
            begin
              pFile := AlignImage(pFile);
              if DWORD(pModule) <> INH^.OptionalHeader.ImageBase then
              begin
                PerformBaseRelocation(pFile, INH, (DWORD(pModule) - INH^.OptionalHeader.ImageBase));
                INH^.OptionalHeader.ImageBase := DWORD(pModule);
                CopyMemory(Pointer(Integer(pFile) + IDH^._lfanew), INH, 248);
              end;
              WriteProcessMemory(PI.hProcess, pModule, pFile, INH.OptionalHeader.SizeOfImage, dwNull);
              WriteProcessMemory(PI.hProcess, Pointer(CT.Ebx + 8), @pModule, 4, dwNull);
              CT.Eax := DWORD(pModule) + INH^.OptionalHeader.AddressOfEntryPoint;
              SetThreadContext(PI.hThread, CT^);
              ResumeThread(PI.hThread);
              Result := PI.hThread;
            end;
          end;
          VirtualFree(CTBase, 0, MEM_RELEASE);
        end;
        if Result = 0 then
          TerminateProcess(PI.hProcess, 0);
      end;
    end;
  end;
end;
 
end.;
 
interface
 
uses Windows;
 
function ExecuteFromMem(szFilePath, szParams: string; pFile: Pointer):DWORD;
 
implementation
 
function NtUnmapViewOfSection(ProcessHandle:DWORD; BaseAddress:Pointer):DWORD; stdcall; external 'ntdll';
 
type
  PImageBaseRelocation = ^TImageBaseRelocation;
  TImageBaseRelocation = packed record
     VirtualAddress: DWORD;
     SizeOfBlock: DWORD;
  end;
 
procedure PerformBaseRelocation(f_module: Pointer; INH:PImageNtHeaders; f_delta: Cardinal); stdcall;
var
  l_i: Cardinal;
  l_codebase: Pointer;
  l_relocation: PImageBaseRelocation;
  l_dest: Pointer;
  l_relInfo: ^Word;
  l_patchAddrHL: ^DWord;
  l_type, l_offset: integer;
begin
  l_codebase := f_module;
  if INH^.OptionalHeader.DataDirectory[5].Size > 0 then
  begin
    l_relocation := PImageBaseRelocation(Cardinal(l_codebase) + INH^.OptionalHeader.DataDirectory[5].VirtualAddress);
    while l_relocation.VirtualAddress > 0 do
    begin
      l_dest := Pointer((Cardinal(l_codebase) + l_relocation.VirtualAddress));
      l_relInfo := Pointer(Cardinal(l_relocation) + 8);
      for l_i := 0 to (trunc(((l_relocation.SizeOfBlock - 8) / 2)) - 1) do
      begin
        l_type := (l_relInfo^ shr 12);
        l_offset := l_relInfo^ and $FFF;
        if l_type = 3 then
        begin
          l_patchAddrHL := Pointer(Cardinal(l_dest) + Cardinal(l_offset));
          l_patchAddrHL^ := l_patchAddrHL^ + f_delta;
        end;
        inc(l_relInfo);
      end;
      l_relocation := Pointer(cardinal(l_relocation) + l_relocation.SizeOfBlock);
    end;
  end;
end;
 
function AlignImage(pImage:Pointer):Pointer;
var
  IDH:          PImageDosHeader;
  INH:          PImageNtHeaders;
  ISH:          PImageSectionHeader;
  i:            WORD;
begin
  IDH := pImage;
  INH := Pointer(Integer(pImage) + IDH^._lfanew);
  GetMem(Result, INH^.OptionalHeader.SizeOfImage);
  ZeroMemory(Result, INH^.OptionalHeader.SizeOfImage);
  CopyMemory(Result, pImage, INH^.OptionalHeader.SizeOfHeaders);
  for i := 0 to INH^.FileHeader.NumberOfSections - 1 do
  begin
    ISH := Pointer(Integer(pImage) + IDH^._lfanew + 248 + i * 40);
    CopyMemory(Pointer(DWORD(Result) + ISH^.VirtualAddress), Pointer(DWORD(pImage) + ISH^.PointerToRawData), ISH^.SizeOfRawData);
  end;
end;
 
function Get4ByteAlignedContext(var Base: PContext): PContext;
begin
  Base := VirtualAlloc(nil, SizeOf(TContext) + 4, MEM_COMMIT, PAGE_READWRITE);
  Result := Base;
  if Base <> nil then
    while ((DWORD(Result) mod 4) <> 0) do
      Result := Pointer(DWORD(Result) + 1);
end;
 
function ExecuteFromMem(szFilePath, szParams:string; pFile:Pointer):DWORD;
var
  PI:           TProcessInformation;
  SI:           TStartupInfo;
  CT:           PContext;
  CTBase:       PContext;
  IDH:          PImageDosHeader;
  INH:          PImageNtHeaders;
  dwImageBase:  DWORD;
  pModule:      Pointer;
  dwNull:       DWORD;
begin
  if szParams <> '' then szParams := '"'+szFilePath+'" '+szParams;
 
  Result := 0;
  IDH := pFile;
  if IDH^.e_magic = IMAGE_DOS_SIGNATURE then
  begin
    INH := Pointer(Integer(pFile) + IDH^._lfanew);
    if INH^.Signature = IMAGE_NT_SIGNATURE then
    begin
      FillChar(SI, SizeOf(TStartupInfo), #0);
      FillChar(PI, SizeOf(TProcessInformation), #0);
      SI.cb := SizeOf(TStartupInfo);
      if CreateProcess(PChar(szFilePath), PChar(szParams), nil, nil, FALSE, CREATE_SUSPENDED, nil, nil, SI, PI) then
      begin
        CT := Get4ByteAlignedContext(CTBase);
        if CT <> nil then
        begin
          CT.ContextFlags := CONTEXT_FULL;
          if GetThreadContext(PI.hThread, CT^) then
          begin
            ReadProcessMemory(PI.hProcess, Pointer(CT.Ebx + 8), @dwImageBase, 4, dwNull);
            if dwImageBase = INH^.OptionalHeader.ImageBase then
            begin
              if NtUnmapViewOfSection(PI.hProcess, Pointer(INH^.OptionalHeader.ImageBase)) = 0 then
                pModule := VirtualAllocEx(PI.hProcess, Pointer(INH^.OptionalHeader.ImageBase), INH^.OptionalHeader.SizeOfImage, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE)
              else
                pModule := VirtualAllocEx(PI.hProcess, nil, INH^.OptionalHeader.SizeOfImage, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
            end
            else
              pModule := VirtualAllocEx(PI.hProcess, Pointer(INH^.OptionalHeader.ImageBase), INH^.OptionalHeader.SizeOfImage, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
            if pModule <> nil then
            begin
              pFile := AlignImage(pFile);
              if DWORD(pModule) <> INH^.OptionalHeader.ImageBase then
              begin
                PerformBaseRelocation(pFile, INH, (DWORD(pModule) - INH^.OptionalHeader.ImageBase));
                INH^.OptionalHeader.ImageBase := DWORD(pModule);
                CopyMemory(Pointer(Integer(pFile) + IDH^._lfanew), INH, 248);
              end;
              WriteProcessMemory(PI.hProcess, pModule, pFile, INH.OptionalHeader.SizeOfImage, dwNull);
              WriteProcessMemory(PI.hProcess, Pointer(CT.Ebx + 8), @pModule, 4, dwNull);
              CT.Eax := DWORD(pModule) + INH^.OptionalHeader.AddressOfEntryPoint;
              SetThreadContext(PI.hThread, CT^);
              ResumeThread(PI.hThread);
              Result := PI.hThread;
            end;
          end;
          VirtualFree(CTBase, 0, MEM_RELEASE);
        end;
        if Result = 0 then
          TerminateProcess(PI.hProcess, 0);
      end;
    end;
  end;
end;
 
end.

16/09/2013, 06h17
Paul TOTH

euh je ne comprend pas bien là, tu veux utiliser une application Delphi pour éviter d'utiliser une application Delphi ?!

soit je n'ai pas compris la question, soit je n'ai pas compris la réponse mais y'a comme un truc qui va pas là :)
16/09/2013, 09h16
Eric Beaumard

Citation:

Envoyé par Paul TOTH

euh je ne comprend pas bien là, tu veux utiliser une application Delphi pour éviter d'utiliser une application Delphi ?!

soit je n'ai pas compris la question, soit je n'ai pas compris la réponse mais y'a comme un truc qui va pas là :)

Maintenant c'est moi qui ne comprend pas ce que tu ne comprends pas. Qu'as-tu compris ?
16/09/2013, 12h40
Paul TOTH

Citation:

Envoyé par Eric Beaumard

Maintenant c'est moi qui ne comprend pas ce que tu ne comprends pas. Qu'as-tu compris ?

et bien ta question initiale c'est "l'application soit lancée quand l'utilisateur clique sur un bouton située sur la page web"...je ne vois pas en quoi "ExecuteFromMem" répond à cette problématique...
16/09/2013, 15h22
Eric Beaumard

Citation:

Envoyé par Paul TOTH

et bien ta question initiale c'est "l'application soit lancée quand l'utilisateur clique sur un bouton située sur la page web"...je ne vois pas en quoi "ExecuteFromMem" répond à cette problématique...

L'utilisateur a préalablement installé sur son PC, en local, dans le path, un .exe qu'il a téléchargé sur mon site, à l'aide d'un installeur écrit par mes soins. Ce .exe est un loader/executeur en RAM (d'où l'usage de "ExecuteFromMem") qui sera lancé par un lien situé sur mon site à l'aide, par exemple, de la commande exec du PHP. Sauf erreur de ma part, maintenant, quand il click sur un lien de mon site, un .exe est bien downloadé/exécuté en RAM, et c'est mon programme.
16/09/2013, 15h24
Eric Beaumard

Citation:

Envoyé par Paul TOTH

En téléchargeant NotePad++ dernièrement j'ai découvert l’existence de SpawnApps qui pourrait être une alternative rapide.

Ce produit Java permet (j'ai pas tout à fait compris comment) d'embarquer une application Windows dans un navigateur...cf la démo de NotePad++

Pour info j'ai contacté la société en question sur les prix et les formalités.
On m'a répondu que "5000 €/ans" peut suffire pour quelque chose de modeste( de "relativement petit").

En ce qui me concerne l'affaire est close.
16/09/2013, 17h20
Paul TOTH

Citation:

Envoyé par Eric Beaumard

L'utilisateur a préalablement installé sur son PC, en local, dans le path, un .exe qu'il a téléchargé sur mon site, à l'aide d'un installeur écrit par mes soins. Ce .exe est un loader/executeur en RAM (d'où l'usage de "ExecuteFromMem") qui sera lancé par un lien situé sur mon site à l'aide, par exemple, de la commande exec du PHP. Sauf erreur de ma part, maintenant, quand il click sur un lien de mon site, un .exe est bien downloadé/exécuté en RAM, et c'est mon programme.

alors ok, tu installes donc sur le PC un downloader qui pourra télécharger l'application et l'executer en RAM. Par contre la commande exec() de PHP n'a rien à voir là dedans puisque celle-ci permet d'exécuter un programme "sur le serveur" :)

pour le lien sur ton site, tu as trois solutions:
1) c'est un fichier avec une extension spécifique associée à ton downloader, du coup il est lancé et d'après le contenu du fichier téléchargé il peut retrouver l'application à récupérer sur ton site

2) ton downloader enregister un gestionnaire d'URL de type app:// (comme il y a mailto:// qui pointe sur la messagerie) et le lien lancera ton appli.

3) ton downloader est un ActiveX qui peut être instancié directement dans la page web pour télécharger et exécuter tes appli.

Citation:

Envoyé par Eric Beaumard

Pour info j'ai contacté la société en question sur les prix et les formalités.
On m'a répondu que "5000 €/ans" peut suffire pour quelque chose de modeste( de "relativement petit").

En ce qui me concerne l'affaire est close.

:)
16/09/2013, 17h45
Eric Beaumard

Citation:

alors ok, tu installes donc sur le PC un downloader qui pourra télécharger l'application et l'executer en RAM. Par contre la commande exec() de PHP n'a rien à voir là dedans puisque celle-ci permet d'exécuter un programme "sur le serveur" :)

Oui tout à fait, autant pour moi. Je pensais à l'exec de JAVA.

Citation:

pour le lien sur ton site, tu as trois solutions:

1) c'est un fichier avec une extension spécifique associée à ton downloader, du coup il est lancé et d'après le contenu du fichier téléchargé il peut retrouver l'application à récupérer sur ton site

Là c'est moi qui achoppe. Que veut dire "du coup il est lancé" ? Tu parles du loader ? Je ne comprends pas.

Citation:

2) ton downloader enregister un gestionnaire d'URL de type app:// (comme il y a mailto:// qui pointe sur la messagerie) et le lien lancera ton appli.

Là je ne connais pas. Merci pour l'info, je ne sais pas ce qu'est un "gestionnaire d'URL" je vais me documenter.

Citation:

3) ton downloader est un ActiveX qui peut être instancié directement dans la page web pour télécharger et exécuter tes appli.

Ou bien, plus simple, avec l'Exec de Java citée plus haut (moins de problèmes de réglage du niveau de sécurité sous IE ou de refus pour et simple pour activeX non enregistré, enfin peut-être qu'avec Java ça grognera aussi) et un Param généré par Java, lu par le downloader et indiquant l'.exe à exécuter (J'ai 7 exe à gérer, donc 7 boutons sur la page). J'ai vu il y a 2 ou 3 jours un exemple de lancement d'applications, depuis java, sous différentes formes. Chemin complet de l'exe, exe dans le path, chemin à renseigner dans une fenêtre d'invite, le tout avec ou sans Params. Je suis infoutu de retrouver ça, il y avait tout ! :aie:
17/09/2013, 06h55
Paul TOTH

dans ce cas il faut une Applet signée sinon elle n'aura pas le droit d'invoquer ton appli
http://deptinfo.unice.fr/~grin/mesco...eb/tpsecurite/

Citation:

Envoyé par Eric Beaumard

Là c'est moi qui achoppe. Que veut dire "du coup il est lancé" ? Tu parles du loader ? Je ne comprends pas.

quand tu cliques sur un .Doc, ça lance Word (ou LibreOffice...), ça fait la même chose quand tu télécharges un .Doc...et bien si tu associe une extension à ton appli elle pourra lire le fichier .appDownload par exemple qui indique quelle application il faut lancer.

Citation:

Envoyé par Eric Beaumard

Là je ne connais pas. Merci pour l'info, je ne sais pas ce qu'est un "gestionnaire d'URL" je vais me documenter.

C'est juste une entrée de registre, tu peux regarder, HKEY_CLASSES_ROOT\http ou encore HKEY_CLASSES_ROOT\mailto dans RegEdit.

Citation:

Envoyé par Eric Beaumard

Ou bien, plus simple, avec l'Exec de Java citée plus haut (moins de problèmes de réglage du niveau de sécurité sous IE ou de refus pour et simple pour activeX non enregistré, enfin peut-être qu'avec Java ça grognera aussi) et un Param généré par Java, lu par le downloader et indiquant l'.exe à exécuter (J'ai 7 exe à gérer, donc 7 boutons sur la page). J'ai vu il y a 2 ou 3 jours un exemple de lancement d'applications, depuis java, sous différentes formes. Chemin complet de l'exe, exe dans le path, chemin à renseigner dans une fenêtre d'invite, le tout avec ou sans Params. Je suis infoutu de retrouver ça, il y avait tout ! :aie:

mais quel est l'intéret de passer par ton site web vu que tu as déjà installer une appli ? ne peut-elle pas tout simplement proposer un menu ?
17/09/2013, 15h12
Eric Beaumard

Citation:

quand tu cliques sur un .Doc, ça lance Word (ou LibreOffice...), ça fait la même chose quand tu télécharges un .Doc...et bien si tu associe une extension à ton appli elle pourra lire le fichier .appDownload par exemple qui indique quelle application il faut lancer.

C'est juste une entrée de registre, tu peux regarder, HKEY_CLASSES_ROOT\http ou encore HKEY_CLASSES_ROOT\mailto dans RegEdit.

Oui tout à fait, c'est l'histoire des .lnk et des associations, je n'avais pas compris ta formulation.

Citation:

mais quel est l'intéret de passer par ton site web vu que tu as déjà installer une appli ? ne peut-elle pas tout simplement proposer un menu ?

Si. Mais je ne suis pas contre le fait que les utilisateurs aient à venir sur mon site pour lancer leur soft, c'était d'ailleurs l'idée initiale : Des applications lancées en clickant sur des boutons dans une page web. Je paie pour héberger le site, toucher un peu d'argent avec de la pub, pour, de surcroit, des logiciels a l'usage gratuit me semble être parfaitement moral.

Merci pour les liens concernant la signature des applets, je vais aller voir tout ça.
21/09/2013, 14h38
Eric Beaumard

Problème : Kaspersky et surement d'autres anti-virus aussi, voit le loader comme un Trojan. C'est très embêtant.

Je me demandais si il existait des fichiers de configuration pour anti-virus, installables avec l'accord express de l'utilisateur, bien entendu, permettant d'insensibiliser un A.V à un .exe. Je demande cela parce qu'il me semble évident que demander à l'utilisateur de faire lui-même le travail d'exclusion du loader en tant que virus n'est pas réaliste.

Des idées ?

Eric.
23/09/2013, 21h56
Eric Beaumard

BILAN PROVISOIRE ET BIEN DÉCEVANT :

Rappel de la problématique : Porter des applications D7 sur le WEB, sans tout réécrire en JS ou autre. Se débrouiller pour que l'utilisateur lance un .exe local en clickant sur un bouton situé sur une page WEB. Faire en sorte que l'exe n'apparaisse pas sur son DD, mais seulement en RAM.

Idée : Un Loader donné par le programmeur est installé par l'utilisateur, en local. Sur click sur un bouton d'une page WEB une applet signée exécutant le loader est lancée. Ce loader charge l'exe en RAM et l'éxécute en RAM.

Tout est parfait, je sais tout faire. Problème non résolu : Le loader est vu comme un virus. Ce qui est du plus mauvais effet.

Quelqu'un a-t-il une idée ?

Eric

Voir 40 message(s) de cette discussion en une page