Plugin, SSH, SFTP et deconnection lente

**Henri-gp** · 17/04/2011, 13h10

Bonjour

J’ai écris un plugin (une DLL avec une fenêtre à l’intérieur ) pour pl/sqldev de allroundautomation qui me permets de :

Lancer plusieurs requêtes paramétrables sur différentes bases Oracles (sens avoir à changer de login à tous bout de champs)
Envoyer le résultat sur un serveur linux en SFTP,
Lancer une commande Telnet sur ce serveur en SSH,
Récupérer le résultat en SFTP (un fichier PostScript interpréter par un progiciel d’édition « SEFAS » ,
Interpréter ce résultat avec Adobe acrobate,

Je n’ai pas trouvé mieux que les unités de Ararat Synapse pour faire du telnet et du FTP sécurisé sur un serveur linux ici : http://synapse.ararat.cz/doku.php/start et libre de droit,

Voici le code ci-dessous :

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
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
 
unit CRPExportUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, ExtCtrls, CheckLst, ComCtrls,
  ShellAPI, Menus, Variants , PlugInIntf, SimpleSFTP, EmulVT, OverbyteIcsEmulVT, tlntsend, pingsend,
  SynEdit, SynMemo ;
 
type
  TConfigForm = class(TForm)
    List_dev: TListView;
    CurrentDirEdit: TEdit;
    ReloadButton: TButton;
    memo_telnet_dev: TSynMemo;
    EmulVT_dev: TEmulVT;
    exec_telnet: TButton;
    envoi_dev: TEdit;
    Timer_dev: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ReloadButtonClick(Sender: TObject);
    procedure MemoAddLines_dev(Memo : TsynMemo; Msg : String);
    procedure exec_telnetClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer_devTimer(Sender: TObject);
    procedure List_devDblClick(Sender: TObject);
  private
      { Private declarations }
    FSFTP_DEV:TSimpleSFTP;
    FFileList_DEV:TSFTPFileList;
    FConnected_DEV:Boolean;
    FAbortFlag_DEV:Boolean;
    FSSH_DEV     : TTelnetSend ;
    FPING_DEV    : Tpingsend;
    procedure SetCurrentDir(DirName:string);
    function TransferProgress(UserData:Pointer;Current,Total:Int64):Boolean;
    function OpenCmdLine(const CmdLine: string; WindowState: Word): Boolean;
    procedure LV_FindAndSelectItems(lv: TListView; const S: string; column: Integer);
    //function FindCaption(StartIndex: Integer; Value: string; Partial, Inclusive, Wrap: Boolean): TListItem;
    //function Writestring(_Stream: TStream; const _s: string): Integer
   Public
 
  end;
 
var
  configform :TConfigForm;
  PlugInID: Integer;
  ExportPath: string = '';
 
const // Description of this Plug-In (as displayed in Plug-In configuration dialog)
  Desc = 'CRP Export 1.0';
 
implementation
 
{$R *.DFM}
 
var
 
  CRP: string;
  ColCount, CurCol: Integer;
  Prepared: Boolean;
  Username, Password, Database : PChar;
  applic : string ;
  nom_modele : string ;
  environement  : string ;
  preimp   : string ; // pour avoir le nom du preimprimé
  annexe  : string ;  // pour avoir le nom de l'annexe
  strHost, strUser, strPwd: string;
  la_date: TDateTime; // pour exloiter la date
  days: array[0..6] of string;   // pour le jour de la semaine lundi, mardi ,,,,,,
  le_jour : string ;
  flag_1 : integer ;
  //tpo_Stream : TStream ;
  L: TStringList; // pour avoir une string_liste  à tous faire
  nom_pdf : string ; // la variable ou sera stoké le nom du PDF à recuerer
//******************************************************************************
function Writestring(_Stream: TStream; const _s: string): Integer;
begin
  Result := _Stream.Write(PChar(_s)^, Length(_s));
end;
//******************************************************************************
// Pour mettre au format UNIX, sinon on a des retour chariots
procedure ConvertirDosVersUnix(nomfic: string); // ConvertirDosVersUnix(chemin_rep);
var
   f,s:textfile;
   ch,ch2:char;
begin
   assignfile(f,nomfic);
   reset(f);
   assignfile(s,Extractfilepath(application.exename)+'\temp.txt');
   rewrite(s);
   while not(eof(f)) do
   begin
      read(f,ch);
      if ch = #13 then read(f,ch);
      write(s,ch);
   end;
   closefile(f);
   closefile(s);
   deletefile(nomfic);
   renamefile(Extractfilepath(application.exename)+'\temp.txt',nomfic);
end;
 
//******************************************************************************
 
function ExportInit: Boolean; cdecl;   // premiere action
begin
  ColCount := 0;
  CurCol := 0;
  Prepared := False;
  Result := True;
  CRP := '';
  flag_1 := 0;
end;
 
// Done, everything is exported.
procedure ExportFinished; cdecl;   // quatrieme action
var
ligne : string ;
//pour décortiquer la premiere ligne
TabPos: Integer;
StartPos: Integer;
tempo : string ;
Form: TconfigForm;
//Username, Password, Database: PChar; Form1: TDemoForm;
begin
  Application.Handle := IDE_GetAppHandle;
  Form := TconfigForm.Create(Application);
  with Form do
  begin
    ShowModal;
    Free;
  end;
end;
 
// spool_dev.Lines.SaveToFile(chemin_rep);
// One cell of data, this can be the column description or the actual data.
function ExportData(Value: PChar): Boolean; cdecl;
var
//pour décortiquer la premiere ligne
ligne : string ;
TabPos: Integer;
StartPos: Integer;
F: Textfile;
begin
  Result := True;
 
  if not Prepared then
   begin
  //
   end
  else
   begin
   CRP := CRP + Value;   //  RTF: string;
   //***************************************************************************
   if flag_1 = 0 then
   begin
    ligne := CRP;
    //**********************pour décortiquer la premiere ligne //showmessage(ligne);
    //function Copy(S; Index, Count: Integer): string;
    TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
    TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
    TabPos := Pos(#35, ligne);
    applic := Copy(ligne, 0, TabPos -1 ); // on trouve le nom de la famille
 
    TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
    TabPos := Pos(#35, ligne);
    nom_modele := Copy(ligne, 0, TabPos - 1); // on trouve le nom de la famille
 
    TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
     TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
     TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
     TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
     TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
    TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);
 
    TabPos := Pos(#35, ligne);
    preimp  := Copy(ligne, 0, TabPos - 1);
 
     TabPos := Pos(#35, ligne);
    ligne := Copy(ligne , TabPos + 1, 999);    
 
    TabPos := Pos(#35, ligne);
    annexe  := Copy(ligne, 0, TabPos - 1);
 
    //**************************************************************************
    flag_1 := 1 ;
   end;
    //***************************************************************************
    inc(CurCol);
    if CurCol = ColCount then  CurCol := 0 ;
  end;
  //showmessage(CRP + ' /**************************************/ ');
  AssignFile(f, getcurrentdir + '\pls.dat'); {Assigns the Filename}
 
  ReWrite(f);
  Writeln(f, CRP);
  Closefile(f); {Closes file F}
 
end;
 
function ExportPrepare: Boolean; cdecl;  // deuzieme action
var i: Integer;
begin
  Result := True;
  //for i := 0 to ColCount - 1 do CRP := CRP + Header[i] ;
  Prepared := True;
end;
 
function IdentifyPlugIn(ID: Integer): PChar;  cdecl;
begin
  PlugInID := ID;
  Result := Desc;
end;
 
function RegisterExport: PChar; cdecl;
begin
  Result := '*.dat pour CRP';
end;
 
procedure OnConnectionChange;
var
c: Boolean;
Username, Password, Database: PChar;
begin
  IDE_GetConnectionInfo(Username, Password, Database);
end;
 
//********************* On CReate *********************************
procedure OnCreate; cdecl;
begin
  days[0] := 'lundi';
  days[1] := 'mardi';
  days[2] := 'mercredi';
  days[3] := 'jeudi';
  days[4] := 'vendredi';
  days[5] := 'samedi';
  days[6] := 'dimanche';
  le_jour:= days[DayOfWeek(now)- 2] ;
//showmessage('On Create');
end;
 
procedure OnActivate; cdecl;
// var fc, cr, c: Integer;
 //tmp : string ;
begin
//showmessage('On Activete');
end;
 
//************* Quand on quitte PL/SQL
procedure OnDestroy; cdecl;
begin
//showmessage('On Destroy');
end;
 
// All exported functions
exports
  IdentifyPlugIn,
  RegisterCallback,
  RegisterExport,
  ExportInit,
  ExportFinished,
  ExportPrepare,
  ExportData,
  OnConnectionChange,
  OnCreate,
  OnActivate,
  OnDestroy;
 
procedure TConfigForm.FormCreate(Sender: TObject);    // troisieme action
var
n :integer ;
begin
//ExportFinished ;
//******************** on va vider les lignes vide si il y en a dans le fichier PLS.DAT *************************
L := TStringList.Create ;
L.LoadFromFile(getcurrentdir + '\pls.dat');
  n := 0 ; //OK
  for n := L.Count - 1 downto 0 do  // OK
    begin
    if length(trim(L.Strings[n])) = 0  then L.Delete(n);
    end;
// Timer_dev.Enabled := true ;
 L.SaveToFile(getcurrentdir + '\pls.dat');
 convertirDosVersUnix(getcurrentdir + '\pls.dat');
 L.Free;// on libere la stringliste      
//quand la fenetre s'ouvre on peut choisir la connection à ce moment
  FSFTP_DEV:=TSimpleSFTP.Create;
  FFileList_DEV:=TSFTPFileList.Create;
  //********* pour les fonctions SSH ***********************
  FSSH_DEV      := TTelnetSend.create;
  FPING_DEV     := Tpingsend.create;
  //*******************************************************
  FSFTP_DEV.Disconnect;
  FConnected_DEV:=False;
  FAbortFlag_DEV:=False;
  IDE_GetConnectionInfo(Username, Password, Database);  //
//************On choisi l'environnement ***********************************
      if Database = 'XXXX.XXXXXXX.FR' then
         begin
         //************************** Pour la partit SSH de telnet
          EmulVT_dev.Clear;
          FSSH_DEV.TargetPort := '22' ;
          FSSH_DEV.TargetHost := 'XX.XX.XX.XX';
          FSSH_DEV.UserName := 'qualif' ;
          FSSH_DEV.Password := 'qualif' ;
          FSSH_DEV.Timeout := 100;
          envoi_dev.Text := 'lance_masse_pdf courrier ' + applic + ' pls.dat toto.pdf';
          if FSSH_DEV.SSHLogin then
            begin
              if FSSH_DEV.RecvAllDatas <> '' then  MemoAddLines_dev(memo_telnet_dev,FSSH_DEV.RecvAllDatas); // OK
            end;
          environement := 'qualif';
          FAbortFlag_DEV:=False;
          FSFTP_DEV.Connect('XX.XX.XX.XX','22','qualif','qualif');
          FConnected_DEV:=True;
          SetCurrentDir('/oprint/ressources/qualif/courrier/' + applic + '/spool/');
          TransferProgress(nil,0,0);
          FSFTP_DEV.PutFile(getcurrentdir + '\pls.dat','/oprint/ressources/qualif/courrier/' + applic + '/spool',True,True,False,0,TransferProgress,nil);
         //*********************************************************************
          environement := 'qualif';
          FFileList_DEV.Clear;
          SetCurrentDir('/oprint/ressources/qualif/courrier/' + applic + '/printer');
          //********************************************************************
          FAbortFlag_DEV:=False;
          TransferProgress(nil,0,0);
          //********************************************************************
          sleep(200);  // On patiente un peu
          exec_telnetClick(Sender);  // On execute le bouton
        end;
      //************************* on va l'uploader vers la qualif
      if Database = 'XXXXX' then
         begin
          environement := 'XX';
         //************************** Pour la partit SSH de telnet  **** DEV *******
          EmulVT_dev.Clear;
          FSSH_DEV.TargetPort := '22' ;
          FSSH_DEV.TargetHost := 'XX.XX.XX.XX';
          FSSH_DEV.UserName := 'XX' ;
          FSSH_DEV.Password := 'XXXXXXX' ;
          FSSH_DEV.Timeout := 100;
          envoi_dev.Text := 'lance_masse_pdf courrier ' + applic + ' pls.dat toto.pdf'; 
          if FSSH_DEV.SSHLogin then
            begin
              if FSSH_DEV.RecvAllDatas <> '' then  MemoAddLines_dev(memo_telnet_dev,FSSH_DEV.RecvAllDatas); // OK
            end;
          FAbortFlag_DEV:=False;
          FSFTP_DEV.Connect('XX.XX.XX.73','22','Xx','XXXXXXXX');
          FConnected_DEV:=True;
          SetCurrentDir('/oprint/ressources/bd/courrier/' + applic + '/spool/');
          TransferProgress(nil,0,0);
          FSFTP_DEV.PutFile(getcurrentdir + '\pls.dat','/oprint/ressources/bd/courrier/' + applic + '/spool',True,True,False,0,TransferProgress,nil);
         //*********************************************************************
          FFileList_DEV.Clear;
          SetCurrentDir('/oprint/ressources/bd/courrier/' + applic + '/printer');
          //********************************************************************
          FAbortFlag_DEV:=False;
          TransferProgress(nil,0,0);
          //********************************************************************
          sleep(200);  // On patiente un peu
          exec_telnetClick(Sender);  // On execute le bouton          
         end;
end;
 
procedure TConfigForm.FormDestroy(Sender: TObject);
begin
//***************** Quand je ferme la fenetre *****************
 Application.ProcessMessages ;
 FSSH_DEV.Logout ;   // temps assez long
 FSFTP_DEV.Disconnect;   // temps assez long pour la déconnection  à la fermeture
 FConnected_DEV:=False;  // pour la déconnection  à la fermeture
 FFileList_DEV.Free;
 FSFTP_DEV.Free;
 FSSH_DEV.Free ;
end;
 
procedure TConfigForm.SetCurrentDir(DirName:string);
var
 i:Integer;
 j_dev :Integer;
 sp_pos : Integer;
 S : string ;
 tpo : string;
 reste : string;
 poid : string ; //le poid du fichier
 date_f, mois_f : string ; // la date du fichier
 heure_f : string ; // l'heure du fichier
begin
  CurrentDirEdit.Text:=FSFTP_DEV.SetCurrentDir(DirName);
  FFileList_DEV.Clear;
  List_dev.Clear; // on efface le liste_box
  j_dev := 0 ; // on vaut iliser J  comme indexe de   List_dev.items
  FSFTP_DEV.ListDir(CurrentDirEdit.Text,FFileList_DEV); // Une Procedure
  for i:=0 to FFileList_DEV.Count-1 do
   begin
    if ExtractFileExt(FFileList_DEV[i].FileName) = '.pdf'  then  //MyFilesExtension := ExtractFileExt(MyFileName)
      Begin
         List_dev.Items.Add;
 
        S := trim(FFileList_DEV[i]^.LongName);
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos + 1, 999)); // on vire les xxx-xxx-xxx
 
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos + 1, 999)); // on vire les xxx-xxx-xxx1/2/3
 
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos + 1, 999)); // on vire les oprint
 
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos + 1, 999)); // on vire les oprint
 
        poid := trim(Copy(S, 0, sp_Pos - 1)); // on recupere le poid
 
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos , 999)); // on vire le poid
 
        sp_pos := Pos(#32, S);
        mois_f := trim(Copy(S, 0, sp_Pos -1 )); // on recupere l  sp_Pos -3
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos + 1, 999)); // on vire le mois
 
        date_f := trim(Copy(S, 0, sp_Pos - 1)) + ' ' + mois_f ; // on recupere l
        sp_pos := Pos(#32, S);
        S := trim(Copy(S, sp_Pos + 1, 999)); // on vire la date
 
        heure_f := trim(Copy(S, 0,5)); // on recupere l
 
        List_dev.Items[j_dev].Caption :=  date_f + ' ' +  heure_f ;
        List_dev.Items[j_dev].SubItems.Add(FFileList_DEV[i].FileName);
        List_dev.Items[j_dev].SubItems.Add(poid);
        inc(j_dev);
      end;    
   end;
end;
 
procedure TConfigForm.ReloadButtonClick(Sender: TObject);
begin
  SetCurrentDir(CurrentDirEdit.Text);
end;
 
function TConfigForm.TransferProgress(UserData:Pointer;Current,Total:Int64):Boolean;
begin
//  if Total=0 then ProgressBar.Position:=0  else ProgressBar.Position:=Round(Current/Total*ProgressBar.Max);
  Application.ProcessMessages;
  Result:=not FAbortFlag_DEV;
end;
 
//************************* Debut des procedures SSH ***********************************************
procedure TConfigForm.MemoAddLines_dev(Memo : TsynMemo; Msg : String);
const
    CR = #13;
    LF = #10;
var
    Start, Stop : Integer;
    j: byte;  //i,j: byte;
    Msgcopy : string;
begin
EmulVT_dev.WriteStr(Msg);
Msgcopy := Msg;
  if memo_telnet_dev.Lines.Count = 0 then memo_telnet_dev.Lines.Add('');
   Start := 1;
   Stop  := Pos(CR, Msg);
    if Stop = 0 then Stop := Length(Msg) + 1;
    while Start <= Length(Msg) do begin
      memo_telnet_dev.Lines.Strings[memo_telnet_dev.Lines.Count - 1] :=
        memo_telnet_dev.Lines.Strings[memo_telnet_dev.Lines.Count - 1] + Copy(Msg, Start, Stop - Start);
      if Msg[Stop] = CR then
        begin
          memo_telnet_dev.Lines.Add('');
          SendMessage(memo_telnet_dev.Handle, WM_KEYDOWN, VK_UP, 1);
        end;
      Start := Stop + 1;
      if Start > Length(Msg) then Break;
      if Msg[Start] = LF then
        Start := Start + 1;
      Stop := Start;
      while (Msg[Stop] <> CR) and (Stop <= Length(Msg)) do
        Stop := Stop + 1;
      end;
 end;
 
procedure TConfigForm.exec_telnetClick(Sender: TObject);
 
begin
envoi_dev.Text := 'lance_masse_pdf courrier ' + applic + ' pls.dat toto.pdf'; 
memo_telnet_dev.Clear ;
Timer_dev.Enabled := True ;
FSSH_DEV.send(envoi_dev.Text +  #13 +  #10);  // OK
end;
 
procedure TConfigForm.FormClose(Sender: TObject; var Action: TCloseAction);
 
begin
//FSSH_DEV.Free ;
end;
 
procedure TConfigForm.Timer_devTimer(Sender: TObject);
 
var
a, b , nom_pdf : string;
n : integer ;
m : integer ;
lvItem: TListItem;
 
begin
  Timer_dev.Enabled := false;
  a := FSSH_DEV.RecvAllDatas ;
  if a <> '' then
  begin
    MemoAddLines_dev(memo_telnet_dev,a);
    with memo_telnet_dev do
    begin
      GotoLineAndCenter(Lines.Count-1);
    end;
  end;
  Timer_dev.Enabled := true;
 n := 0 ; //OK
  for n := memo_telnet_dev.Lines.Count - 1 downto 0 do  // OK
    begin
     if Pos('Compo PDF :', trim(memo_telnet_dev.Lines.Strings[n])) <> 0 then
      begin //function Copy(S; Index, Count: Integer): string;
        Timer_dev.Enabled := false ;       //SetCurrentDir(CurrentDirEdit.Text);
        configform.Caption := 'Export Configuration Compo PDF' + trim(memo_telnet_dev.Lines.Strings[n]);
        b:= trim(memo_telnet_dev.Lines.Strings[n]);
        m := Pos('/printer/', trim(memo_telnet_dev.Lines.Strings[n]));
        nom_pdf := Copy(trim(memo_telnet_dev.Lines.Strings[n]),m + 9,999) + '.pdf';
        sleep(1000);
        SetCurrentDir(CurrentDirEdit.Text);
        LV_FindAndSelectItems(List_dev, nom_pdf , 1);
        List_dev.SetFocus;
        List_devDblClick(Sender);
        //application.Terminate;
        Application.ProcessMessages;
      end;
    end;
 
end;
 
 
procedure TConfigForm.List_devDblClick(Sender: TObject);
 
begin
if Database = 'XXXXXXXXXXXXXXX then
 begin
  FSFTP_DEV.GetFile('/oprint/ressources/qualif/courrier/' + applic + '/printer', List_dev.Items[list_dev.ItemIndex].SubItems[0] ,getcurrentdir + '\'+ List_dev.Items[list_dev.ItemIndex].SubItems[0],True,True,False,0,TransferProgress,nil);
  OpenCmdLine('C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe ' + getcurrentdir + '\'+ List_dev.Items[list_dev.ItemIndex].SubItems[0], SW_SHOW);
 end;
if Database = 'XXXXXXXX' then
 begin
  FSFTP_DEV.GetFile('/oprint/ressources/bd/courrier/' + applic + '/printer', List_dev.Items[list_dev.ItemIndex].SubItems[0] ,getcurrentdir + '\'+ List_dev.Items[list_dev.ItemIndex].SubItems[0],True,True,False,0,TransferProgress,nil);
  OpenCmdLine('C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe ' + getcurrentdir + '\'+ List_dev.Items[list_dev.ItemIndex].SubItems[0], SW_SHOW);
 end;
 
end;
 
function TConfigForm.OpenCmdLine(const CmdLine: string;
  WindowState: Word): Boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
begin
  { Enclose filename in quotes to take care of  long filenames with spaces. }
  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do
  begin
    cb := SizeOf(SUInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WindowState;
  end;
  Result := CreateProcess(nil, PChar( CmdLine ), nil, nil, False,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS, nil,
    nil {PChar(ExtractFilePath(Filename))},
    SUInfo, ProcInfo);
end;
 
//***************** pour trouver dans la liste view   et selectionner
procedure TConfigForm.LV_FindAndSelectItems(lv: TListView; const S: string; column: Integer);
var
  i: Integer;
  found: Boolean;
  lvItem: TListItem;
begin
  Assert(Assigned(lv));
  Assert((lv.ViewStyle = vsReport) or (column = 0));
  Assert(S <> '');
  for i := 0 to lv.Items.Count - 1 do
  begin
    lvItem := lv.Items[i];
    if column = 0 then
      found := AnsiCompareText(lvItem.Caption, S) = 0
    else if column > 0 then
    begin
      if lvItem.SubItems.Count >= Column then
        found := AnsiCompareText(lvItem.SubItems[column - 1], S) = 0
      else 
        found := False;
    end
    else
      found := False;
    if found then
    begin
      lv.Selected := lvItem;
    end;
  end;
end;
 
end.

Ce n’est encore qu’une ébauche,
Tous fonctionne bien et s’enchaine bien SAUF ! ! ! que je pers un peu de temps (10 à 30 secondes) quand je me déconnecte,
C’a me bloque l’application ou est installé ce plugin (pl/sqldev) le temps de la déconnection,

La procédure en question qui prend du temps surtout le logout et Disconnect :

procedure TConfigForm.FormDestroy(Sender: TObject);
begin
//***************** Quand je ferme la fenetre *****************
Application.ProcessMessages ;
FSSH_DEV.Logout ; // temps assez long
FSFTP_DEV.Disconnect; // temps assez long pour la déconnection à la fermeture
FConnected_DEV:=False; // pour la déconnection à la fermeture
FFileList_DEV.Free;
FSFTP_DEV.Free;
FSSH_DEV.Free ;
end;

Pourrai-je m’en sortir avec un thread( j’en ai jamais utilisé ! ! ! ) ?
Surtout que je suis obligé de créer une fenêtre dans ma DLL pour pouvoir utilisé mes composants et déclarer mes unités
Donc je vois pas trop comment peut fonctionner un thread sur un FormDestroy,

Merci pour vos conseils à venir,

Henri

**ShaiLeTroll** · 18/04/2011, 10h37

TSimpleSFTP peut-être instancié sans une fenêtre
Tu veux transformer ce mini client Telnet en une simple DLL sans Ecran ???
Veux-tu conserver cet affichage ou que cela soit une passerelle invisible à l'utilisateur utilisée en interne par ton programme

Tu peux très bien utiliser un Thread dans la DLL (voir DLLEntryPoint si tu veux le lancer dès le chargement), la méthode Execute contient le code qui sera exécuté en parallèle !
Mais effectivement manipuler une Form dans un Thread est périlleux, surement encore plus avec une DLL !

Tu devrais commencer par spécifier les fonctions exportées par la DLL
Peut-être, un objet COM, cela simplifie la gestion du passage de paramètre sauf si la DLL doit respecter déjà des interfaces de allroundautomation mais dans ce cas, je suppose que ta DLL attend des opérations utilisateurs ?

Application.ProcessMessages dans un OnDestroy d'une form, est inutile voir dangereux !

**Henri-gp** · 18/04/2011, 12h31

Bonjour,

>>TSimpleSFTP peut-être instancié sans une fenêtre

Au début, j’ai essayé, c’a n’a pas marché, et de toute façon j’ai besoin de vérifié le retour du Telnet, donc d’une fenêtre

>>Tu veux transformer ce mini client Telnet en une simple DLL sans Ecran ???

C’a m’aurai plu aussi, et dans ce cas, ceci ne serai peut-être pas bloquant !

>>Tu peux très bien utiliser un Thread dans la DLL (voir DLLEntryPoint si tu veux le lancer dès le chargement), la méthode Execute contient le code qui sera exécuté en parallèle !

Je ne veux pas la lancer au chargement, car ceci impliquera de rester connecter avec le ftp et le Telnet le temps de la session PL/SQLDEV, c'est-à-dire pour la plupart des utilisateurs toute la journée pour seulement quelques requête qui seront dirigé vers mon serveur Linux,
Le serveur Linux coupe les connections après un certain temps d’inactivité, donc c’a m’obligerai à vérifier l’état de la connections,
Et puis s’il y a trop de connections je vais me faire tirer les oreilles ! ! !

>> Tu devrais commencer par spécifier les fonctions exportées par la DLL
Les déclarations demandées par Allroundautomation sont dans l’unité PlugInIntf.pas déclaré dans le « uses », sinon je vous joins un PDF avec toutes les passibilités mise à disposition par Allroundautomation pour faire des plugins,
Ce n’est pas trop étendu, mais jusqu'à présent c’a devrai couvrir tous mes besoins, et puis je progresse là-dessus au fil du temps
C’est plus didactique, y pas beaucoup d’infos là-dessus,

Je vais supprimé ce Application.ProcessMessages dans On destroy, je l’ai mis un peu au pif !

Merci de votre réponse

Henri

Plugin, SSH, SFTP et deconnection lente

Langage Delphi

Discussions similaires

Partager

Partager