DELPHI DATASNAP ПРИМЕР

Delphi DataSnap - это технология серверного программирования, которая позволяет создавать многопользовательские приложения с использованием удаленного доступа к данным. Для работы с DataSnap потребуется создать сервер и клиентское приложение.

Рассмотрим простой пример создания сервера на Delphi с использованием DataSnap:

TServerMethods1 = class(TDSServerModule)public function ReverseString(Value: string): string;end;implementation{$R *.dfm}function TServerMethods1.ReverseString(Value: string): string;begin Result := System.StrUtils.ReverseString(Value);end;

В данном примере реализован один метод ReverseString, который принимает строку и возвращает ее в обратном порядке. Теперь рассмотрим, как создать клиентское приложение для удаленного доступа к этому методу:

function TForm1.ReverseString(Value: string): string;var DSProviderConnection: TDSProviderConnection; ServerMethods1Client: TServerMethods1Client;begin DSProviderConnection := TDSProviderConnection.Create(nil); try DSProviderConnection.HostName := 'localhost'; DSProviderConnection.Port := 211; DSProviderConnection.Connect; ServerMethods1Client := TServerMethods1Client.Create(DSProviderConnection); try Result := ServerMethods1Client.ReverseString(Value); finally ServerMethods1Client.Free; end; finally DSProviderConnection.Free; end;end;

В клиентском приложении мы используем компоненты TDSProviderConnection и TServerMethods1Client для подключения к серверу и вызова метода. Обратите внимание на параметры HostName и Port, которые должны соответствовать настройкам сервера.

DataSnap Step by Step in Delphi ** English **

DataSnap in Action 1 - DataSnap Server

Delphi : Client Server Application using DataSnap Server

Delphi Training Movie #35 - DataSnap #1

RESTful Services with Delphi : Working with DataSnap Wizard - delphi-hlp.ru

Delphi Programming Tutorial #64 - Preserving State in a DataSnap Rest Server

Tutorial Delphi DataSnap