مزامنة قاعدة بيانات دلفي datasnap مع قاعدة بيانات موقع انترنت php mysql

[khawarizmi]

السلام عليكم و رحمة الله و بركاته
ام اجرب من قبل ربط قاعدة بيانات موقع ببرنامج دلفي
عنديبرنامج دلفي لاضافة اعلانات مثلا شخصما يريد بيع بيت يفتح البرنامج يضع فيه معلومات البيت مثل السعر و المساحة و امور اخرى يمكنه تحميل صورة او اكثر للبيت بعد دلك يقوم بمزامنة المعلومات مع الموقع
هل معنى هدا ان يرسل المعلومات و يحفظ المعلومات على قاعدة بيانات الموقع؟ ام يرسلها الى الموقع فقط؟
امر اخر اي المكونات افضل لعمل اتصال مع سرفر قواعد البيانات هل WebConnection DCOMConnection
SocketConnection او SimpleObjectBroker
و هل من الافضل استعمال الاي بي او اسم الكمبيوتر و ادا اخترنا اسم الكمبيوتر كيف يكون دلك؟

[masrnet2006]

كود :

function TServerMethods.ha_GetStrSQL(Client_strSQL: string): TFDJSONDataSets; // SQLSTR var Count, strSQL, StrSQLUser, Cilent_IP_ADDRESS, USERNO: string; RecsOut: Integer; begin // Clear active so that query will reexecute. // strSQL := 'SELECT * FROM madcap.ARCT1000 where IP_ADDRESS = ' + '''' + Cilent_IP_ADDRESS + ''''; // hassan good IP_ADDRESS // StrSQLUser := 'SELECT * FROM madcap.ARCT1000 where OP_USERNO = ' + '''' + USERNO + ''''; // hassan good IP_ADDRESS FDQuerySQL.Active := False; FDQuerySQL.SQL.Clear; FDQuerySQL.SQL.Text := Client_strSQL; Result := TFDJSONDataSets.Create; TFDJSONDataSetsWriter.ListAdd(Result, FDQuerySQL); // The "TFDJSONDataSetsWriter" class provides static "ListAdd" method. // It uses reflection to convert results of the query into "TFDJSONDataSets". end; --------------------------------- procedure TClientModule.ha_GetStrSQL(StrSQL: string); var LDataSetList: TFDJSONDataSets; begin try // Get dataset list containing department names LDataSetList := ClientModule.ServerMethodsClient.ha_GetStrSQL(StrSQL); // Update UI UpdateDepartmentNames(LDataSetList); except on E: TDSRestProtocolException do HandleRestException(ClientModule.DSRestConnection , 'ha_GetStrSQL(StrSQL) error', E) else raise; end; end; ---------- procedure TClientModule.UpdateDepartmentNames(const ADataSetList: TFDJSONDataSets); begin // Update UI FDMemTable.Active := False; Assert(TFDJSONDataSetsReader.GetListCount(ADataSetList) = 1); FDMemTable.AppendData( TFDJSONDataSetsReader.GetListValue(ADataSetList, 0)); end;