Clomosy | Forum : 2 unit arası değişken aktarımı

Clomosy | Forum : 2 unit arası değişken aktarımı https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 20:55:16 +0000 Wed, 26 Feb 2025 13:27:48 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=981 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[2 unit arası değişken aktarımı : Merhaba RxSdfTabi ki yapabilirsin....]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=981&PID=1946#1946 Yazar: Developer
Konu: 981
Gönderim Zamanı: 26 Şubat 2025 Saat 13:27

Merhaba RxSdf

Tabi ki yapabilirsin. Aşağıda yer alan linki inceleyebilir misin:

https://www.docs.clomosy.com/Uses

]]> Wed, 26 Feb 2025 13:27:48 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=981&PID=1946#1946 <![CDATA[2 unit arası değişken aktarımı : // ana koduses addKategori;var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=981&PID=1944#1944 Yazar: rxSfd
Konu: 981
Gönderim Zamanı: 10 Şubat 2025 Saat 17:03

// 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;

}

//unit addKategori

var

addForm : TclForm;

unitName,categoryName,categoryUrl : TCLLabel;

categoryNameEdit,categoryUrlEdit: TCLEdit;

categoryAdi,caategoriUrl : String;

{

addForm = TclForm.Create(Self);

unitName = addForm.AddNewLabel(addForm,'unitName','Kategori Ekleme Sayfası');

unitName.StyledSettings = ssFamily;

unitName.Align = alTop;

unitName.TextSettings.Font.Size = 30;

unitName.Height = 70;

unitName.Width = 350;

categoryName = addForm.AddNewLabel(addForm,'categoryName','Kategori Adi Giriniz:');

categoryName.StyledSettings = ssFamily;

categoryName.TextSettings.Font.Size = 17;

categoryName.Margins.Right = 480;

categoryName.Margins.Bottom = 400;

categoryName.Height = 70;

categoryName.Width = 190;

categoryUrl = addForm.AddNewLabel(addForm,'categoryUrl','Kategori Image Url Giriniz:');

categoryUrl.StyledSettings = ssFamily;

categoryUrl.TextSettings.Font.Size = 17;

categoryUrl.Margins.Right = 450;

categoryUrl.Margins.Bottom = 345;

categoryUrl.Height = 70;

categoryUrl.Width = 220;

categoryNameEdit = addForm.AddNewEdit(addForm,'categoryNameEdit', 'Category Name..');

categoryNameEdit.StyledSettings = ssFamily;

categoryNameEdit.TextSettings.Font.Size = 17;

categoryNameEdit.Margins.Right = 170;

categoryNameEdit.Margins.Bottom = 400;

categoryNameEdit.Height = 25;

categoryNameEdit.Width = 190;

categoryUrlEdit = addForm.AddNewEdit(addForm,'categoryUrlEdit', 'Category Image Url..');

categoryUrlEdit.StyledSettings = ssFamily;

categoryUrlEdit.TextSettings.Font.Size = 17;

categoryUrlEdit.Margins.Right = 75;

categoryUrlEdit.Margins.Bottom = 350;

categoryUrlEdit.Height = 25;

categoryUrlEdit.Width = 190;

categoryAdi = categoryNameEdit.Text;

categoryImageUrl = categoryUrlEdit.Text;

addForm.Run;

}

post kullanırken clRest2.AddBody('{"categoryName":"addKategori.categoryAdi","imageUrl":"categoryImageUrl"}','application/json');
bu kısma categoryAdi ve imageUrl kısmını addKategori unitinden cekmek istiyorum.

]]> Mon, 10 Feb 2025 17:03:23 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=981&PID=1944#1944