Delphi Can

Orjinalini görmek için tıklayınız: HTTPRIO1 epttavm api
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Merhaba; 
epttavm ye api ile kategori listesini almak istiyorum ancak aşağıda yazdığım kod ile bir türlü alamadım, bu konuda yardımcı olacak arkadaş var mı veya yardım eder mi bilmiyorum ama yinede buraya yazmak istedim. yardımcı olan olursa çok sevinirim.
procedure TForm1.Button1Click(Sender: TObject);
var
kategori : epttservice.ArrayOfKategoriDetay;
port :epttservice.IService;
begin

try

     HTTPRIO1 := THTTPRIO.Create(self);
     HTTPRIO1.HTTPWebNode.UserName := trim(edit1.Text);
     HTTPRIO1.HTTPWebNode.Password :=  trim(edit2.Text);

     port := epttservice.GetIService(True,'',HTTPRIO1);

         memo1.Lines.Add(port.GetVersion);

   // setlength(kategori,length(port.KategoriListesi)) ;
  //  kategori   := port.KategoriListesi; 
  //  memo1.Lines.Add(kategori[0].KategoriAdi);

Except
 on Ex: Exception do
      ShowMessage(Ex.ClassName + ' : ' + Ex.Message);
end;
end;
aldığım hata : an error occurred when verifying security for the message web service

epttavm api dökümanında yazan;
1. Sisteme Bağlantı Kurma
Web servisleri Microsoft ASP.Net 4.0 Windows Communication Foundation (WCF) teknolojisi
ile form authentication kullanılarak yapılmıştır.
Web servisinin kullanıldığı açık kaynak örnek c# projesi istendiği zaman temin edilebilir.
Web servisleri çağrılmadan önce tedarikçiye verilen kullanıcı adı ve şifre ile sistem bağlantısı
yapılır.
ServiceClient web = new ServiceClient();
web.ClientCredentials.UserName.UserName = "kullanıcı adı" ;
web.ClientCredentials.UserName.Password = "kullanıcı şifre" ;
web.Open();
Bu bağlantı sonucu Tedarikçi bilgilerinin kontrolü yapılır. Tedarikçinin kullanıcı bilgileri doğru
olması halinde işlem yapabilir.
HTTPRIO1-->Eventındaki onbeforepost'una  şu şekilde yazarak denermisiniz?
Sonuç için emin değilim(!)

procedure TForm2.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
 HeaderStr: string;
begin
 HeaderStr := 'Username: ' + 'kullanıcıadınız';
 HttpAddRequestHeaders(Data, PChar(HeaderStr), Length(HeaderStr), HTTP_ADDREQ_FLAG_ADD);
 HeaderStr := 'Password: ' + 'Şifreniz';
 HttpAddRequestHeaders(Data, PChar(HeaderStr), Length(HeaderStr), HTTP_ADDREQ_FLAG_ADD);
end;
Öncelikle ilgilendiğin için teşekkür ederim, Denedim ama sonuç yine aynı hata : an error occurred when verifying security for the message web service