[Uniq!]

В продолжении темы Евенты, выкладываю код программы для скачивания XML файла с SFTP сервера с помощью компонент SecureBridge
Хотелось бы конструктивной критики. В силу того, что есть желание избавиться от быдлокодерских замашек,
а командной работы в проектах нет (всё один делаю), возникла необходимость поделиться (необходимость личная, так сказать "духовная")

Класс потока:

Код:

1 2 3 4 5 6 7 8 9 10

type   TXMLDonwload = class(TThread)   protected     procedure Execute; override;     procedure SSHClientServerKeyValidate(Sender: TObject; NewServerKey: TScKey;       var Accept: Boolean);     procedure SFTPClientData(Sender: TObject; const FileName: string;       const Handle, Buffer: TArray<System.Byte>; Offset, Count: Integer;       EOF: Boolean);   end;

Реализация:

Код:

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

procedure TXMLDonwload.Execute; var   aSSHClient: TScSSHClient;   aKeyStorage: TScFileStorage;   aSFTPClient: TScSFTPClient;   aAttr: TScSFTPFileAttributes;   aSettings: TRegistry;   FileName: string;   FileDate: TDate;   YY, MM, DD: string; const   SFTP_LOKAL = '/LOKAL/'; //папка, из которой качаем   COMP_LOKAL = 'X:/TOS/XML/'; //папка, куда качаем     SFTP_FILE_PREF = 'TE_000024_';// константы для построения имени файла   SFTP_FILE_TYPE = '.xml';     REGEDIT_SETTINGS = '\SYSTEM\CurrentControlSet\services\TechemService'; // место, где хранятся ключи настроек для коннекта с SFTP begin   inherited;   try     // CoInitialize(nil);     aSSHClient := TScSSHClient.Create(nil);     try       aSettings := TRegistry.Create(KEY_READ);       try         aSettings.RootKey := HKEY_LOCAL_MACHINE;         aSettings.OpenKey(REGEDIT_SETTINGS, false);         aSSHClient.HostName := aSettings.ReadString('HostName');         aSSHClient.Port := aSettings.ReadInteger('Port');         aSSHClient.User := aSettings.ReadString('User');         aSSHClient.Password := aSettings.ReadString('Password');       finally         aSettings.Free;       end;         aKeyStorage := TScFileStorage.Create(nil);       try         aSSHClient.KeyStorage := aKeyStorage;         aSSHClient.OnServerKeyValidate := SSHClientServerKeyValidate;           aSSHClient.Connect;         if aSSHClient.Connected then         begin           aSFTPClient := TScSFTPClient.Create(nil);           try             aSFTPClient.SSHClient := aSSHClient;             aSFTPClient.OnData := SFTPClientData;               aSFTPClient.Initialize;             aSFTPClient.OpenDirectory('.');               FileDate := IncDay(Date, -1);             DD := Copy(DateToStr(FileDate), 1, 2);             MM := Copy(DateToStr(FileDate), 4, 2);             YY := Copy(DateToStr(FileDate), 7, 4);               FileName := SFTP_FILE_PREF + YY + MM + DD + SFTP_FILE_TYPE;               aAttr := TScSFTPFileAttributes.Create;             try               aSFTPClient.RetrieveAttributes(aAttr, SFTP_LOKAL + FileName);               Synchronize(                 procedure                 begin                   Form1.cxProgressBar6.Properties.Max := aAttr.Size;                 end);             finally               aAttr.Free;             end;               aSFTPClient.DownloadFile(SFTP_LOKAL + FileName,               COMP_LOKAL + FileName, true);             aSFTPClient.Disconnect;           finally             aSFTPClient.Free;           end;         end;       finally         aKeyStorage.Free;       end;     finally       aSSHClient.Free;     end;   finally     // CoUnInitialize;   end; end;

Процедура для обновления позиции прогресс бара скачивания файла. Возникает каждый раз, когда SFTP пересылает очередной пакет размером Count

Код:

1 2 3 4 5 6 7 8 9 10

procedure TXMLDonwload.SFTPClientData(Sender: TObject; const FileName: string; const Handle, Buffer: TArray<System.Byte>; Offset, Count: Integer; EOF: Boolean); begin   Synchronize(     procedure     begin       Form1.cxProgressBar6.Position := Form1.cxProgressBar6.Position + Count;     end); end;

Процедура подтверждения приёма файла-ключа для коннекта.

Код:

1 2 3 4 5

procedure TXMLDonwload.SSHClientServerKeyValidate(Sender: TObject; NewServerKey: TScKey; var Accept: Boolean); begin   Accept := true; end;

За область обсуждения выносим
1) "хранение пароля в открытом виде в реестре"
2) Принятие файла ключа без проверки