🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #334797

Re: Webservice w Delphi - udostępnianie danych

#334797
From: Piotr Rezmer
Date: Fri, 13 Jan 2012 06:38
42 lines
2670 bytes
Adam Siwoń pisze:

> To już chyba wolałbym utworzyć uniwersalną klasę konwertera, która
> posiłkując się RTTI i mapowaniem poprzenosi wartości z jednej klasy do
> drugiej - będę miał uniwersalny automat. A w sytuacji, gdy nie da się
> czegoś załatwić mapowaniem - zawsze można dopisać klasę obsługującą
> szczególny przypadek.

Bardzo słusznie. Miałem to zaproponować, ale zapomniałem :) Z użyciem 
RTTI nie powinno być problemu. Tak wygląda przykład kodu klasy entity

   { cWpisHistorii }
   cWpisHistorii = class(TROComplexType)
   private
     fOperator: UnicodeString;
     fkomentarz: UnicodeString;
   public
     class function GetAttributeCount: Integer; override;
     class function GetAttributeName(aIndex: Integer): string; override;
     class function GetAttributeValue(aIndex: Integer): string; override;

     procedure Assign(iSource: TPersistent); override;
     procedure ReadComplex(ASerializer: TObject); override;
     procedure WriteComplex(ASerializer: TObject); override;
   published
     property Operator:UnicodeString read fOperator write fOperator;
     property komentarz:UnicodeString read fkomentarz write fkomentarz;
   end;


> Na chwilę obecną klientem ma być webservice pisany w czymś pod .net.

No to spoko. Dodam, że w najnowszej wersji dodana jest możliwość 
budowania klienta pod javascript. MOżna zatem w przypadku aplikacji 
webowych  pobierać dane asynchronicznie w javascripcie.



-- 
pozdrawiam
Piotr
XLR250&bmw_f650_dakar
Technical Details
Message-ID: <jeoji5$mao$1@inews.gazeta.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
References: <4f0eb92b$0$1209$65785112@news.neostrada.pl> <jenh3e$t55$1@inews.gazeta.pl> <4f0f5ab7$0$1221$65785112@news.neostrada.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: Piotr Rezmer <piotr.rezmer_bez_spamu@ens.net.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: Webservice w Delphi - udostępnianie danych
Date: Fri, 13 Jan 2012 07:38:55 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 42
Message-ID: <jeoji5$mao$1@inews.gazeta.pl>
References: <4f0eb92b$0$1209$65785112@news.neostrada.pl> <jenh3e$t55$1@inews.gazeta.pl> <4f0f5ab7$0$1221$65785112@news.neostrada.pl>
NNTP-Posting-Host: 178.181.74.4.nat.umts.dynamic.t-mobile.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1326436741 22872 178.181.74.4 (13 Jan 2012 06:39:01 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Fri, 13 Jan 2012 06:39:01 +0000 (UTC)
X-User: prezmer
X-Antivirus: avast! (VPS 120112-1, 2012-01-12), Outbound message
In-Reply-To: <4f0f5ab7$0$1221$65785112@news.neostrada.pl>
X-Antivirus-Status: Clean
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; pl; rv:1.9.1.16) Gecko/20101125 Thunderbird/3.0.11
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit