17-03-2022, Saat: 13:35
Merhaba;
Youtube eğitim videoları ile bir functiondan veri isteyip client alma işini yapabildim. Ancak yine kod ile update , insert yada qury içerisindeki veriyi clinete göndremedim.
Diğer videolara datasnap üzerinden veri gönderme konusunda bilgi mevcut ama web server application ile ilgili bir bilgi bulamadım.
bu kod ile server weri tabanıdan veri alıp json olarak client e ilitiyor burada iş function üzerinden yapılıyor query den veri almak istediğimizde netür bir değişiklik olamalı ??
client den update ve insert için pek bir kaynak bulamadım?? elinde bu konu ile ilgili örnek kod yada proje olan var mı ??
Youtube eğitim videoları ile bir functiondan veri isteyip client alma işini yapabildim. Ancak yine kod ile update , insert yada qury içerisindeki veriyi clinete göndremedim.
Diğer videolara datasnap üzerinden veri gönderme konusunda bilgi mevcut ama web server application ile ilgili bir bilgi bulamadım.
unction GetArsSelectJSON(strSelectJSON: String; UniSP: TUniStoredProc): String;
var
I: integer;
jsonobj: TJSONObject;
jsonArr: TJSONArray;
jsonWriter: tJsonObjectWriter;
begin
try
jsonobj := TJSONObject.ParseJSONValue
(TEncoding.UTF8.GetBytes(strSelectJSON), 0) as TJSONObject;
jsonArr := jsonobj.Pairs[0].JsonValue as TJSONArray;
with UniSP do
begin
StoredProcname := jsonobj.Pairs[0].JsonString.Value;
form1.RichEdit1.Lines.Add('StoredProcName'+StoredProcName);
PrepareSQL;
form1.RichEdit1.Lines.Add(' paramcount'+ParamCount.ToString);
if ParamCount > 0 then
begin
for I := 0 to jsonArr.Count - 1 do
begin
Params[i].AsString := jsonArr.Items[i].GetValue<string>
('Parametre' + (i + 1).ToString);
form1.RichEdit1.Lines.Add( ('Parametre' + (i + 1).ToString)+Params[i].AsString);
end;
end;
Execute;
jsonWriter := tJsonObjectWriter.Create;
jsonWriter.WriteStartobject;
// Tablo kayas dizisini oluşturuyoruz
form1.RichEdit1.Lines.Add(StoredProcname);
jsonWriter.WritePropertyname(StoredProcname);
// Dataset ise sonuc yok ise; RecordCount:=0)
jsonWriter.WriteStartobject;
jsonWriter.WritePropertyname('Kayit sayisi');
form1.RichEdit1.Lines.Add(' ');
form1.RichEdit1.Lines.Add('recortcount '+Recordcount.ToString);
if Recordcount > 0 then
jsonWriter.WriteValue(Recordcount)
else
jsonWriter.WriteValue(0);
jsonWriter.writeEndObject;
jsonWriter.WritePropertyname('Dataset');
jsonWriter.WriteStartArray;
while not eof do
begin
jsonWriter.WriteStartobject;
for I := 0 to FieldCount - 1 do
begin
jsonWriter.WritePropertyname(Fields[i].DisplayName);
jsonWriter.WriteValue(Fields[i].AsString);
end;
jsonWriter.writeEndObject;
Next;
end;
jsonWriter.WriteEndarray;
end;
Result := jsonWriter.JSON.ToJson;
finally
jsonWriter.DisposeOf;
UniSP.close;
end;
bu kod ile server weri tabanıdan veri alıp json olarak client e ilitiyor burada iş function üzerinden yapılıyor query den veri almak istediğimizde netür bir değişiklik olamalı ??
client den update ve insert için pek bir kaynak bulamadım?? elinde bu konu ile ilgili örnek kod yada proje olan var mı ??
