Школоло / Говнокод #27297 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
type
.....
TSyncParamsPasser = class
   PassedJSON:String;
   constructor Create(RJS:String);
   procedure ProcessExternalCmd;
  end;
.....
.....
procedure TForm1.TCPServerExecute(AContext: TIdContext);
begin
.....
   SyncParamsPasser:=TSyncParamsPasser.Create(CustomData);
   TIdSync.SynchronizeMethod(SyncParamsPasser.ProcessExternalCmd);
   FreeAndNil(SyncParamsPasser);
.....
end;
.....
constructor TSyncParamsPasser.Create(RJS:String);
begin
 PassedJSON:=RJS;
end;

procedure TSyncParamsPasser.ProcessExternalCmd;
var
 JSON:TJSONObject;
begin
 JSON:=TJSONObject.ParseJSONValue(PassedJSON) as TJSONObject;
.....

Событие OnExecute компонента TCPServer вызывается из рабочего потока, в котором обрабатывается входящее подключение.

Способ передачи параметров в процедуру, выполняющуюся внутри Synchronize, с помощью класса.
Говно или сойдёт?

Запостил: SmseR SmseR, (Updated )

Комментарии (7) RSS

  • ava SmseR # Ссылка на оригинал 0

    SyncParamsPasser - локальная переменная внутри TCPServerExecute, забыл указать
    Ответить

  • ava JloJle4Ka # Ссылка на оригинал 0

    Студентов, ранее изучавших Бейсик, практически невозможно обучить хорошему программированию. Как потенциальные программисты они подверглись необратимой умственной деградации.
    Ответить

Добавить комментарий

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓