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