Delphi UniGUI Web Servis Oluşturma
1 min read

Delphi UniGUI Web Servis Oluşturma

Delphi UniGUI Web Servis Oluşturma

Merhabalar,

Bugün yazımızda UniGUI geliştirirken aynı zamanda uygulamamızı nasıl web servis (tam anlamıyla web servis değil sadece istek gönderim/cevap alma sistemi diyelim :D ) şeklinde kullanabiliriz onu öğrenceğiz. ServerModule tarafında işlemlerimizi halledeceğiz yani son gelen istek her zaman kabul görür. Session değil buna çok dikkat etmemiz gerekiyor. Gelen istekleri ServerModule'nin OnHTTPCommand eventi içerisinde deniyoruz.

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  var Handled: Boolean);
begin
   if ARequestInfo.URI = '/test' then
   begin
    AResponseInfo.ContentText := 'sen buraya istek için geldin';
    AResponseInfo.ResponseNo := 200;
    AResponseInfo.ContentType := 'JSON';
    AResponseInfo.WriteContent;
    Handled := True;
   end;
end;

ARequestInfo.URI: sunucuya gelecek olan URL yapısına göre response isteğimizi gerçekleştireceğiz.
AResponseInfo.ContentText := 'sen buraya istek için geldin';: gelen URI'ye göre hangi sonucun dönmesini istiyorsak bu şekilde ContentText property'ine set ediyoruz.
AResponseInfo.ResponseNo := 200;: 200 ile isteğin başarılı bir şekilde geldiğini ve geri döndüğünü söylüyoruz.
AResponseInfo.ContentType := 'JSON'; JSON formatında geri dönüş atıyoruz. Bunu XML gibi veri tiplerine isteğe göre işaretleyebilirsiniz.

Sonuç:

İyi çalışmalar