Webservice Yardım

[zero_g]

Slm Arkadaşlar bir projemde webservis kullanmak zorundayım. Ama ne denedimse birtürlü başaramadım,
Yardımcı olursanız sevinirim aşağıda size yardımcı olacak bilgileri veriyorum. birtürlü iletişim kurup bilgi alamadım yanliz c# ile
çok basit bir kodla bilgi alınabildim c# kodu da şu

DataSetGW ds = srv.MGWLT1(wsUser, wsPassword, "", "", ""); // metot cagirma, dataset dondurme
dataGridView1.DataSource = ds.DataTableLT1; // gelen verinin datasetin hangi datatable'i oldugu

bir türlü delphi7 ile bilgi alamadım yardımcı olursanız sevinirim..

request xml kodu
--------
POST /Service.asmx HTTP/1.1
Host: xx.xx.xxx.xxx
Content-Type: application/soap+xml; charset=utf-8
Content-Length: length

<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
<soap12:Body>
<MGWLT1 xmlns="http://www.xxx.com.tr/">
<aa1>string</aa1>
<ab1>string</ab1>
<ac1>string</ac1>
<ad1>string</ad1>
<ae1>string</ae1>
</MGWLT1>
</soap12:Body>
</soap12:Envelope>

response xml kodu
-----------------------
HTTP/1.1 200 OK
Content-Type: application/soap+xml; charset=utf-8
Content-Length: length

<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
<soap12:Body>
<MGWLT1Response xmlns="http://www.xxx.com.tr/">
<MGWLT1Result>dataset</MGWLT1Result>
</MGWLT1Response>
</soap12:Body>
</soap12:Envelope>

delphi 7 ile export ettiğim kod
---------------------------------------
MGWLT1 = class(TRemotable)
private
Faa1: WideString;
Fab1: WideString;
Fac1: WideString;
Fad1: WideString;
Fae1: WideString;
public
constructor Create; override;
published
property aa1: WideString read Faa1 write Faa1;
property ab1: WideString read Fab1 write Fab1;
property ac1: WideString read Fac1 write Fac1;
property ad1: WideString read Fad1 write Fad1;
property ae1: WideString read Fae1 write Fae1;
end;

MGWLT1Result = array of Variant;
MGWLT1Response = class(TRemotable)
private
FMGWLT1Result: MGWLT1Result;
public
constructor Create; override;
published
property MGWLT1Result: MGWLT1Result read FMGWLT1Result write FMGWLT1Result;
end;

ServiceSoap = interface(IInvokable)
['{1BC7E1DA-A9DB-412B-96FF-43C65F670964}']
function MGWLT1(const parameters: MGWLT1): MGWLT1Response; stdcall;
end;

[zero_g]

yokmu cevap verebilecek arkadaş,ustalar nerdesiniz?

[vkamadan]

Merhabalar,

Servis metodunun geriye variant döndürdüğü durumlarda eğer elimizde doküman yoksa debug ederek dönen sonucun yapısı hakkında fikir sahibi olmamız gerekir,

Örnek bir projede uygulamadan fikir yürütmek zor , WSDL adresi nedir?

[vkamadan]

Merhaba ,
.NEt ile yazılmış geriye Dataset döndüren WebServislerinin Delphi ile kullanılmasına örnek olarak
http://www.gekko-software.nl/DotNet/Art08.htm burayı inceleyebilirsiniz , zaman probleminden dolayı kendim denemedim fakat makale açıklayıcı ve tatminkar görünüyor.

İyi çalışmalar.