2 unit arası değişken aktarımı

// ana kod 

uses addKategori;

var

  Form1 : TclForm; 

  clRest,clRest2: TCLRest;

  Button1,Button2,Button3,Button4,Button5,Button6,Button7,Button8,Button9: TCLButton;

  eTitle : TClProLabel;

  Unit1 : TclUnit;

void GetPruductMethod;

{

  clRest.Execute;

  ShowMessage(clRest.Response);

}

void PostProductMethod;

{

  clRest2.Execute;

  ShowMessage(clRest2.Response);

}

void goToAddUnit

{

  Unit1.UnitName = 'addKategori';

  Unit1.CallerForm = Form1;

  Unit1.Run;

}

{

  Form1 = TclForm.Create(Self);

  Unit1 = TclUnit.Create;

  

  eTitle = Form1.AddNewProLabel(Form1, 'eTitle', 'E-KAMPUS');

  

  clComponent.SetupComponent(eTitle,'{

    "Align":"Center",

    "MarginBottom":485,

    "MarginLeft":320,

    "Width":550,

    "Height":200,

    "TextColor":"#f5428d",

    "TextSize":45,

    "TextVerticalAlign":"Center",

    "TextHorizantalAlign":"Left",

    "TextBold":"Yes"

  }');

  

  Button1 = Form1.AddNewButton(Form1,'Button1', 'Kategori Listele');

  Form1.AddNewEvent(Button1, tbeOnClick, 'GetPruductMethod');

  

  Button2 = Form1.AddNewButton(Form1,'Button2', 'Kategori Ekle');

  Form1.AddNewEvent(Button2, tbeOnClick, 'goToAddUnit');

  

  /*

  Button3 = Form1.AddNewButton(Form1,'Button3', 'Urun Ekle');

  Form1.AddNewEvent(Button3, tbeOnClick, 'GetMethod');

  

  Button4 = Form1.AddNewButton(Form1,'Button4', 'Urun Listele');

  Form1.AddNewEvent(Button4, tbeOnClick, 'GetMethod');

  

  Button5 = Form1.AddNewButton(Form1,'Button5', 'Etkinlik Ekle');

  Form1.AddNewEvent(Button5, tbeOnClick, 'GetMethod');

  

  Button6 = Form1.AddNewButton(Form1,'Button6', 'Etkinlik Listele');

  Form1.AddNewEvent(Button6, tbeOnClick, 'GetMethod');

  

  Button7 = Form1.AddNewButton(Form1,'Button7', 'Hakkımızda Ekle');

  Form1.AddNewEvent(Button7, tbeOnClick, 'GetMethod');

  

  Button8 = Form1.AddNewButton(Form1,'Button8', 'Hakkımızda Listele');

  Form1.AddNewEvent(Button8, tbeOnClick, 'GetMethod');

  

  Button9 = Form1.AddNewButton(Form1,'Button9', 'E-Kampus Siteye Git');

  Form1.AddNewEvent(Button9, tbeOnClick, 'GetMethod');

  */

  Button1.Width = 220;

  Button1.Height = 40;

  Button1.Margins.Top = 110;

  Button1.Margins.Right = 380;

  Button1.Margins.Bottom = 410;

  

  Button2.Width = 220;

  Button2.Height = 40;

  Button2.Margins.Top = 110;

  Button2.Margins.Left = 380;

  Button2.Margins.Bottom = 410;

  

  /*

  Button3.Width = 220;

  Button3.Height = 40;

  Button3.Margins.Top = 150;

  Button3.Margins.Left = 380;

  Button3.Margins.Bottom = 300;

  Button4.Width = 220;

  Button4.Height = 40;

  Button4.Margins.Top = 150;

  Button4.Margins.Right = 380;

  Button4.Margins.Bottom = 300;

  

  Button5.Width = 220;

  Button5.Height = 40;

  Button5.Margins.Top = 190;

  Button5.Margins.Right = 380;

  Button5.Margins.Bottom = 190;

  

  Button6.Width = 220;

  Button6.Height = 40;

  Button6.Margins.Top = 190;

  Button6.Margins.Left = 380;

  Button6.Margins.Bottom = 190;

  

  Button7.Width = 220;

  Button7.Height = 40;

  Button7.Margins.Top = 220;

  Button7.Margins.Right = 380;

  Button7.Margins.Bottom = 80;

  

  Button8.Width = 220;

  Button8.Height = 40;

  Button8.Margins.Top = 220;

  Button8.Margins.Left = 380;

  Button8.Margins.Bottom = 80;

  

  Button9.Align = alBottom;

  Button9.Margins.Bottom = 50;

  */

  

  clRest=TCLRest.Create;

  clRest2 = TCLRest.Create;

  

  clRest.BaseURL = 'http://localhost:7001/api/Categories';

  clRest.Accept = 'application/json';

  clRest.Method = rmGET;

  clRest.AddHeader('Custom-Header', 'Value'); 

  clRest.AddHeader('Authorization', 'Bearer eyJhbGciOiJSUzI1NiIsImtpZCI6IjhFQUUzMkQ4MTFGM0MxMjhCNjg5OTQ3REMyNzk0QzREIiwidHlwIjoiYXQrand0In0.eyJuYmYiOjE3MzkxODE4OTAsImV4cCI6MTczOTE4NTQ5MCwiaXNzIjoiaHR0cDovL2xvY2FsaG9zdDo1MDAxIiwiYXVkIjpbIlJlc291cmNlQ2F0YWxvZyIsIlJlc291cmNlSW1hZ2UiLCJSZXNvdXJjZU1lc3NhZ2UiLCJSZXNvdXJjZU9jZWxvdCIsImh0dHA6Ly9sb2NhbGhvc3Q6NTAwMS9yZXNvdXJjZXMiXSwiY2xpZW50X2lkIjoiRWNvbW1lcmNlTWFuYWdlcklkIiwic3ViIjoiOWMxMzJkYjYtOTBmNy00NGE1LWEzOWItMjkxODYwMjk0NjI5IiwiYXV0aF90aW1lIjoxNzM5MTgxODkwLCJpZHAiOiJsb2NhbCIsImp0aSI6Ijg1MUJEMDk0MTUwNjRFRkQyMkQ1N0M5RjkyMkFBMEM2IiwiaWF0IjoxNzM5MTgxODkwLCJzY29wZSI6WyJDYXRhbG9nRnVsbFBlcm1pc3Npb24iLCJDYXRhbG9nUmVhZFBlcm1pc3Npb24iLCJlbWFpbCIsIklkZW50aXR5U2VydmVyQXBpIiwiSW1hZ2VGdWxsUGVybWlzc2lvbiIsIk1lc3NhZ2VGdWxsUGVybWlzc2lvbiIsIk9jZWxvdEZ1bGxQZXJtaXNzaW9uIiwib3BlbmlkIiwicHJvZmlsZSJdLCJhbXIiOlsicHdkIl19.VZdtowGGAEteFeCwCxmkG3_hY4wnPdlIc8F-Hb3E9R-BYdAescXASxD8Gzm0jd9KjPwH-133VsbHmjjiNd5MBQo5cmZfc010o6aI1RnC-1jT_-e5wJ7jgM34m7nfMSrX0kQoWx16A10wGMjkDyzuqhEBrQ6L8qYRpLeSWa0dJAveNgV68O3CROszurYaebSRdx5OKBwSmzKkHnZ01lf7pPc9KLL3AcWqyrAhglDJxDrLaD5EdH4dbOwpVfCZnlR6VNkrlfRPPli_6PzSptAYhiazcY61AcjyL-5RxINvFisIH7QbKCYoY4Um5cDMU74avEr2A4n8lifw8_J4FNWT5A');

  

  clRest2.BaseURL = 'http://localhost:7001/api/Categories';

  clRest2.Accept = 'application/json';

  clRest2.Method = rmPOST;

  clRest2.AddBody('{"categoryName":"addKategori.categoryAdi","imageUrl":"categoryImageUrl"}','application/json');

  clRest2.AddHeader('Authorization', 'Bearer eyJhbGciOiJSUzI1NiIsImtpZCI6IjhFQUUzMkQ4MTFGM0MxMjhCNjg5OTQ3REMyNzk0QzREIiwidHlwIjoiYXQrand0In0.eyJuYmYiOjE3MzkxODE4OTAsImV4cCI6MTczOTE4NTQ5MCwiaXNzIjoiaHR0cDovL2xvY2FsaG9zdDo1MDAxIiwiYXVkIjpbIlJlc291cmNlQ2F0YWxvZyIsIlJlc291cmNlSW1hZ2UiLCJSZXNvdXJjZU1lc3NhZ2UiLCJSZXNvdXJjZU9jZWxvdCIsImh0dHA6Ly9sb2NhbGhvc3Q6NTAwMS9yZXNvdXJjZXMiXSwiY2xpZW50X2lkIjoiRWNvbW1lcmNlTWFuYWdlcklkIiwic3ViIjoiOWMxMzJkYjYtOTBmNy00NGE1LWEzOWItMjkxODYwMjk0NjI5IiwiYXV0aF90aW1lIjoxNzM5MTgxODkwLCJpZHAiOiJsb2NhbCIsImp0aSI6Ijg1MUJEMDk0MTUwNjRFRkQyMkQ1N0M5RjkyMkFBMEM2IiwiaWF0IjoxNzM5MTgxODkwLCJzY29wZSI6WyJDYXRhbG9nRnVsbFBlcm1pc3Npb24iLCJDYXRhbG9nUmVhZFBlcm1pc3Npb24iLCJlbWFpbCIsIklkZW50aXR5U2VydmVyQXBpIiwiSW1hZ2VGdWxsUGVybWlzc2lvbiIsIk1lc3NhZ2VGdWxsUGVybWlzc2lvbiIsIk9jZWxvdEZ1bGxQZXJtaXNzaW9uIiwib3BlbmlkIiwicHJvZmlsZSJdLCJhbXIiOlsicHdkIl19.VZdtowGGAEteFeCwCxmkG3_hY4wnPdlIc8F-Hb3E9R-BYdAescXASxD8Gzm0jd9KjPwH-133VsbHmjjiNd5MBQo5cmZfc010o6aI1RnC-1jT_-e5wJ7jgM34m7nfMSrX0kQoWx16A10wGMjkDyzuqhEBrQ6L8qYRpLeSWa0dJAveNgV68O3CROszurYaebSRdx5OKBwSmzKkHnZ01lf7pPc9KLL3AcWqyrAhglDJxDrLaD5EdH4dbOwpVfCZnlR6VNkrlfRPPli_6PzSptAYhiazcY61AcjyL-5RxINvFisIH7QbKCYoY4Um5cDMU74avEr2A4n8lifw8_J4FNWT5A');

  

  

   Form1.Run;

}