1. Pascal / Говнокод #27214

    −2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure ProgramRestart(Sender: TObject);
begin
   Application.Terminate;
   ShellExecute(0,'open',Application.ExeName,'','',SW_NORMAL); // ))
end;

    Неделю когда-то пытался понять почему этот код не работает: "Я же программу вырубил? - вырубил... Я же ее запускаю? - запускаю... А че она не запускается?)))..."

    vovka3003, 13 Января 2021

    Комментарии (36)

  2. Pascal / Говнокод #27031

    −1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    // добавляем новые ссылки
  for i := 0 to ATags.Count - 1 do
  begin
    // так мне кажется лучше
    Application.ProcessMessages;

    кому или чему лучше кроме тебя, автор ?

    xoodoo, 15 Октября 2020

    Комментарии (163)

  3. Pascal / Говнокод #26788

    0

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    procedure TWorker.handleAdminClient(socket: TTCPBlockSocket; json: ISuperObject);
var
  msg: ansistring;
  request: SOString;
  //s: ISuperObject;
  res: ISuperObject;
begin
  res := json['data'];
  msg := json['func'].AsString;

  if msg = 'deletemarket' then
     begin
       database.deleteMarket(res.GetS('id'));
       msg:='getmarkets';
     end;
  if msg = 'addmarket' then
     begin
      database.addMarket(res.GetS('mapid'),res.GetS('name'),res.GetS('type_id'));
      msg:='getmarkets';
     end;
  if msg = 'setmarketitems' then
     begin
        database.setMarktItems(res.GetS('id'),res.GetA('items'));
        TSocketSender.sendStr(socket, '{"type":"' + msg + '","data":{"id":' + res.GetS('id') + '}}');
        exit;
     end;
  if msg = 'updatemarket' then
     begin
        database.updateMarkt(res.GetS('id'),res.GetS('name'),res.GetS('enabled'));
        TSocketSender.sendStr(socket, '{"type":"' + msg + '","data":{"id":' + res.GetS('id') + '}}');
        exit;
     end;
  if msg = 'getmarktitems' then
     begin
       request := database.getMarktItems(res.GetS('id'));
       TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
       exit;
     end;

  if msg = 'getmarkets' then
     begin
       request := database.getMarkets();
       TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
       exit;
     end;

  if msg = 'getmarkettypes' then
     begin
       request := database.getMarketTypes();
       TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
       exit;
     end;
  if msg = 'getitems' then
  begin
    request := database.getAdminItems();
    TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
    exit;
  end;
  if msg = 'getitemstypes' then
  begin
    request := database.getAdminItemsTypes();
    TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
    exit;
  end;
  if msg = 'getitem' then
  begin
    request := database.getItem(res['itemid'].AsInteger).getJSON.AsString;
    TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
    exit;
  end;
  if msg = 'additem' then
  begin
    request := database.addItem(res);
    TSocketSender.sendStr(socket, '{ "type" : "' + msg + '" , "data" : ' + request + '}');
    exit;
  end;
  if msg = 'setitem' then
  begin
    database.setItem(res);
    exit;
  end;
  if msg = 'getavatar' then
  begin
    getAvatar(socket);
    exit;
  end;
  if msg = 'acceptavatar' then
  begin
    acceptAvatar(res);
    exit;
  end;
  if msg = 'declineavatar' then
  begin
    declineAvatar(res);
    exit;
  end;
  if msg = 'admindata' then
  begin
    sendAdminData(socket);
    exit;

    Ужаснитесь.

    Cynicrus, 03 Июля 2020

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

  4. Pascal / Говнокод #26502

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    Type
  ONETWO = 1 .. 2;

var I: ONETWO;
begin
	I:=1;
	I:=I+1;
	writeln(I); //2
	I:=1+I;     
	writeln(I); //3
	inc(I);
	writeln(I); //4
	inc(I);
	writeln(I);	//5
end.

    https://ideone.com/mtmPPq
    Всё что нужно знать о продвинутой тупизации в «Паскале».

    3.14159265, 13 Марта 2020

    Комментарии (189)

  5. Pascal / Говнокод #26436

    +5

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    begin
                 G4.Caption:='X';
                 if G5.Caption='' then
                 begin
                   G5.Caption:='X';
                   if G6.Caption='' then
                   begin
                     G6.Caption:='X';
                     if G7.Caption='' then
                     begin
                       G7.Caption:='X';
                       if G8.Caption='' then G8.Caption:='X' else
                       if sg8=1 then
                          G8.Font.Style:=[fsBold,fsStrikeOut];
                     end else
                     if sg7=1 then
                        G7.Font.Style:=[fsBold,fsStrikeOut];
                   end else
                   if sg6=1 then
                      G6.Font.Style:=[fsBold,fsStrikeOut];
                 end else
                 if sg5=1 then
                    G5.Font.Style:=[fsBold,fsStrikeOut];
               end else
               if sg4=1 then
                  G4.Font.Style:=[fsBold,fsStrikeOut];
             end else
             if sg3=1 then
                G3.Font.Style:=[fsBold,fsStrikeOut];
           end else
           if sg2=1 then
              G2.Font.Style:=[fsBold,fsStrikeOut];
           if H2.Caption='' then H2.Caption:='X' else
           if sh2=1 then H2.Font.Style:=[fsBold,fsStrikeOut];
           if F2.Caption='' then
           begin
             F2.Caption:='X';
             if E3.Caption='' then
             begin
               E3.Caption:='X';
               if D4.Caption='' then
               begin
                 D4.Caption:='X';
                 if C5.Caption='' then
                 begin
                   C5.Caption:='X';
                   if B6.Caption='' then
                   begin
                     B6.Caption:='X';
                     if A7.Caption='' then A7.Caption:='X' else
                     if sa7=1 then
                     A7.Font.Style:=[fsBold,fsStrikeOut];
                   end else
                   if sb6=1 then
                   B6.Font.Style:=[fsBold,fsStrikeOut];
                 end else
                 if sc5=1 then
                 C5.Font.Style:=[fsBold,fsStrikeOut];
               end else
               if sd4=1 then
               D4.Font.Style:=[fsBold,fsStrikeOut];
             end else
             if se3=1 then
             E3.Font.Style:=[fsBold,fsStrikeOut];
           end else
           if sf2=1 then
           F2.Font.Style:=[fsBold,fsStrikeOut];
         end;
      6: begin //Король
    {E1}   if ((se1=1) and not ((E1.Caption<>'Ферзь') or (E1.Caption<>'Ладья') or (E1.Caption<>'Король')) or
    {D1}   ((sd1=1) and not ((E1.Caption='') and ((D1.Caption='Ферзь') or (D1.Caption='Ладья')))) or
    {C1}   ((sc1=1) and not (((E1.Caption='') and (D1.Caption='')) and ((C1.Caption='Ферзь') or (C1.Caption='Ладья')))) or
    {B1}   ((sb1=1) and not (((E1.Caption='') and (D1.Caption='') and (C1.Caption='')) and ((B1.Caption='Ферзь') or (B1.Caption='Ладья')))) or
    {A1}   ((sa1=1) and not (((E1.Caption='') and (D1.Caption='') and (C1.Caption='') and (B1.Caption='')) and ((A1.Caption='Ферзь') or (A1.Caption='Ладья')))) or
    {E2}   ((se2=1) and not ((E2.Caption='Слон') or (E2.Caption='Ферзь') or (E2.Caption='Пешка') or (E2.Caption='Король'))) or
    //ПРОДОВЖИТИ
    {D3}   ((sd3=1) and not ((E2.Caption='') and ((D3.Caption='Ферзь') or (D3.Caption='Слон')))) or
    {C4}   ((sc4=1) and not (((E2.Caption='') and (D3.Caption='')) and ((C4.Caption='Ферзь') or (C4.Caption='Слон')))) or
    {B5}   ((sb5=1) and not (((E2.Caption='') and (D3.Caption='') and (C4.Caption='')) and ((B5.Caption='Ферзь') or (B5.Caption='Слон')))) or
    {A6}   ((sa6=1) and not (((E2.Caption='') and (D3.Caption='') and (C4.Caption='') and (B5.Caption='')) and ((A6.Caption='Ферзь') or (A6.Caption='Ладья')))) or
    {F2}   ((sf2=1) and not (E2.Caption='Ладья') or (E2.Caption='Ферзь')) or
    {F3}   ((sf3=1) and not ((F2.Caption='') and ((F3.Caption='Ферзь') or (F3.Caption='Ладья')))) or
    {F4}   ((sf4=1) and not (((F2.Caption='') and (F3.Caption='')) and ((F4.Caption='Ферзь') or (F4.Caption='Ладья')))) or
    {F5}   ((sf5=1) and not (((F2.Caption='') and (F3.Caption='') and (F4.Caption='')) and ((F5.Caption='Ферзь') or (F5.Caption='Ладья')))) or
    {F6}   ((sf6=1) and not (((F2.Caption='') and (F3.Caption='') and (F4.Caption='') and (F5.Caption='')) and ((F6.Caption='Ферзь') or (F6.Caption='Ладья')))) or
    {F7}   ((sf7=1) and not (((F2.Caption='') and (F3.Caption='') and (F4.Caption='') and (F5.Caption='') and (F6.Caption='')) and ((F7.Caption='Ферзь') or (F7.Caption='Ладья')))) or
    {F8}   ((sf8=1) and not (((F2.Caption='') and (F3.Caption='') and (F4.Caption='') and (F5.Caption='') and (F6.Caption='') and (F7.Caption='')) and ((F8.Caption='Ферзь') or (F8.Caption='Ладья')))) or
    {G2}   ((sg2=1) and not (G2.Caption='Ферзь') or (G2.Caption='Слон')) or
    {H3}   ((sh3=1) and not ((G2.Caption='') and ((H3.Caption='Ферзь') or (H3.Caption='Слон')))) or
    {H1}   ((sh1=1) and not (H1.Caption'Ферзь') or (H1.Caption='Слон')) or
   {Кони}  ((sh2=1) and not (H2.Caption='Конь')) or ((sg3=1) and not (G3.Caption='Конь')) or  ((se3=1) and not (E3.Caption='Конь')) or  ((sd2=1) and not(D2.Caption='Конь'))
           ) then if (F1.Caption='') then F1.Caption:='X' else
           if sf1=1 then F1.Font.Style:=[fsBold,fsStrikeOut];
         end;

    Как-то на первом или втором курсе недоунивера возникло желание сделать шахматы в ООП на Паскале. Решил закодить 64 кнопки (8*8 поле). Сделал переменные для идентификации хода черных/белых, для 2 режимов, в первом из которых кликаешь на свою фигуру (надпись на кнопке) и тебе показывают доступные ходы ею (Х куда можно поставить фигуру, подчеркнутое название вражеской фигуры при возможность её забрать). Ты кликаешь, поле очищается от подсказок, фигура перемещается, проверка на шах/мат (ад), ход передается другому цвету фигур (Жирное начертание для определения) и режим взаимодействия с игровым полем опять переходит в выбор фигуры. Теоретически закодировав каждую кнопку на все возможные события шахматы были бы закончены полностью. Вот только спустя окончания кодировки первой кнопки я заYAYлся и забросил ибо говнокод вышел в 1000 строк на одну YAYдь кнопку. Разумеется, показать могу лишь часть

    Zick, 12 Февраля 2020

    Комментарии (38)

  6. Pascal / Говнокод #26433

    0

    1. 1
    https://pastebin.com/ABfdEgS5

    Выкладываю не глядя мой код примерно 12-го года.

    vistefan, 10 Февраля 2020

    Комментарии (69)

  7. Pascal / Говнокод #26336

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
i:integer;
begin
  a := Edit1.Text;
  b := Edit2.Text;
  for i := 0 to 9 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + '000' + IntToStr(i) + ';' + '000' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + '000' + IntToStr(i) + ' ' + '000' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + '000' + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;
  for i := 10 to 99 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + '00' + IntToStr(i) + ';' + '00' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + '00' + IntToStr(i) + ' ' + '00' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + '00' + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;
  for i := 100 to 999 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + '0' + IntToStr(i) + ';' + '0' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + '0' + IntToStr(i) + ' ' + '0' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + '0' + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;
  for i := 1000 to 9999 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + IntToStr(i) + ';' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + IntToStr(i) + ' ' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.SaveToFile('C:\Users\Admin\Desktop\import_tel.vcf');
end;

end.

    Программа для генерации номеров телефона которую написал друг)

    Reds, 09 Января 2020

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

  8. Pascal / Говнокод #26325

    −3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    1)
const
  OUT_OF_BOUNDS:TPoint=(X:-1; Y:-1);
var
  INT_OUT_OF_BOUNDS:Integer absolute OUT_OF_BOUNDS;

TargetForm.Perform(WM_LBUTTONUP,0,INT_OUT_OF_BOUNDS);

2)
const
  ZERO_ZERO:TPoint=(X:0; Y:0);
var
  INT_ZERO_ZERO:Integer absolute ZERO_ZERO;

TargetForm.Perform(WM_LBUTTONUP,0,INT_ZERO_ZERO);

3)
TargetForm.Perform(WM_LBUTTONUP,0,0);

    Болею. Стояла задача воспроизвести системное меню. Но оказалось, что при клике на элемент фейкового системного меню, форме не посылается WM_LBUTTONUP и кнопка-иконка не перекрашивается в ненажатый вид. Решил перформить WM_LBUTTONUP прямо при клике, но туда нужно передавать координаты мышки куда был совершён клик в High(lParam) и Low(lParam). Сначала хотел передавать -1;-1 но подумал что передавать туда $FFFFFFFF как-то некрасиво, а прямое приведение типов а-ля Integer(Point(-1,-1)) оно у меня хавать не захотело, и поэтому красоты ради наговнокодил первый вариант кода. Потом подумал, а что если там только положительные значения, будет же 65535;65535 непорядок, лучше буду передавать нули. Впихнуть туда просто 0 сразу в голову не пришло (болею же, башка квадратная) и наговнокодил второй вариант.

    Потом, конечно же, написал всё по нормальному.

    KOTOM, 07 Января 2020

    Комментарии (67)

  9. Pascal / Говнокод #26290

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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
    procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  var
    http:tidhttp;
    ss:tstringstream;
  begin
  try
    http:=tidhttp.Create(nil);
    http.CookieManager:=tIdcookiemanager.Create(nil);
    http.HandleRedirects:=true;
    http.AllowCookies:=True;
    http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0';
    http.IOHandler:=tidssliohandlersocketopenssl.Create(nil);
    http.Compressor:=tidcompressorzlib.Create(nil);
    http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    http.Request.AcceptEncoding:='gzip, deflate';
    SS:=tstringstream.Create;
    HTTP.Get(ARequestInfo.URI, SS);
    aresponseinfo.CharSet:=http.Response.CharSet;
    aresponseinfo.ContentType:=http.Response.ContentType+'; '+'charset='+http.Response.CharSet+';';
    aresponseinfo.ContentStream:=SS;
    AResponseInfo.WriteContent;
  except

  end;


end;

    Мой разложившийся мозг сопротивляется. Сковзь пелену галлюцинаций, где где меня имеют сразу несколько волосатых таджиков, отчетливо пробивается реклама. Ее много. Очень много. Реклама и навязчивые видео с предложениями "срубить бабла" даже страшнее галлюцинаций. Я написал простой фильтр, заключающийся в локальном сервере, к которому я подключаюсь из браузера. Сервер является точкой доступа. Неугодные запросы я буду отпиздовывать на корню.
    Собственно, этот код я запостил как фикс досадного гълюка, заключающегося в том, что браузер посылает нахой поле charset. Это херит даже код html.
    Кодировку следует указывать в поле "КонтентТипе"

    пожалуй, всё. пока.

    AnalBoy, 30 Декабря 2019

    Комментарии (10)

  10. Pascal / Говнокод #26060

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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
    procedure TForm1.Button1Click(Sender: TObject);
  var
    RequestBody,SResponseBody: TStringStream;

    ResponseBody: string;
begin


  try
     RequestBody := TStringStream.Create('{"login":"user","password":"pass999"}') ;
    httpconn.HandleRedirects:=TRUE;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
    //httpconn.Host:='api.owencloud.ru';
    httpconn.Request.Accept:='application/xml';
    httpconn.Request.ContentLength:=68;
    httpconn.Request.ContentType:='application/x-www-form-urlencoded';

    ResponseBody:=httpconn.Post('https://api.owencloud.ru/v1/auth/open', RequestBody);
    SResponseBody:=TStringStream.Create(httpconn.Post('https://api.owencloud.ru/v1/auth/open', RequestBody));
    memo1.Text:=utf8toansi(ResponseBody);
    xmldocument1.LoadFromStream(SResponseBody);
 finally
    RequestBody.Free;
    SResponseBody.Free;
 end;
end;

    Передача в мемо волшебна, а в xml так вообще виртуозна

    untitled_001, 30 Ноября 2019

    Комментарии (15)