Wsdl Acil Yardim

[PowerSoft]

MERHABA,
BEN DELPHI 7 ILE SOAP BAĞLANTISI YAPMAK İÇİN UĞRAŞIYORUM...
BAZI SITELERE BAĞLANIYORUM FAKAT PORT KULLANAN SITELERDE SORUN YAŞIYORUM NEDEN KAYNAKLANIYOR TAM OLARAK ANLAMIŞ DEĞİLİM..
BANA YARDIMCI OLURSANIZ SEVINIRIM..

procedure TTCPRO.BAGKURP;
VAR
WSDLADI : String;
WSDLADRES : String;
GIR : ProvizyonIstek;
CIK : ProvizyonSonuc;
begin
WSDLADRES := 'http://hop.bagkur.gov.tr/HOPYeni/wsdl/GetProvizyon.wsdl';
WSDLADI := 'GetProvizyon.wsdl';
PWD := '********';
USER := '********';
TRY
IF not FileExists(ExtractFilePath(Application.ExeName)+WS DLADI) THEN
IF DownloadFile( WSDLADRES,ExtractFilePath(Application.ExeName)+WSD LADI) THEN
DM.PROVIZYON.WSDLLocation:=(ExtractFilePath(Applic ation.ExeName)+WSDLADI);
DM.PROVIZYON.WSDLLocation:=(ExtractFilePath(Applic ation.ExeName)+WSDLADI);
//DM.PROVIZYON.WSDLLocation := WSDLADRES;
DM.PROVIZYON.Service := 'GetProvizyonService';
DM.PROVIZYON.Port := 'GetProvizyon';
GIR := ProvizyonIstek.Create;
CIK := ProvizyonSonuc.Create;
TRY
GIR.bagno := '0670610031';
GIR.karneNo := 'J12330936';
GIR.yakKod := '0101';
GIR.istekCommArea := ' ';
GIR.kullanici := USER;
GIR.sifre := PWD;
TRY
CIK := (DM.PROVIZYON as GetProvizyon).sistemeGonder(GIR);
DM.CIKIS.TableName := 'BAGCIK.DBF';
DM.CIKIS.Open;
DM.CIKIS.EmptyTable;
DM.CIKIS.Insert;
DM.CIKIS.Fields[0].AsString := CIK.hepsi;
DM.CIKIS.Fields[1].AsBoolean := CIK.resultCode;
DM.CIKIS.Fields[2].AsString := CIK.errorStr;
DM.CIKIS.Fields[3].AsInteger := CIK.sigortaliIli;
DM.CIKIS.Fields[4].AsInteger := CIK.hataKodu;
DM.CIKIS.Post;
FINALLY
CIK.Free;
DM.CIKIS.Close;
END;
FINALLY
GIR.Free;

END;
EXCEPT
ON E : Exception DO
ShowMessage('WSDL HATA MEYDANA GELDI : '+#13#10+E.Message);
END;