ممنون از راهنمایی شما
این متن سورس C# هست که نمی دونم در pascal چی میشه
using System;using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WebServiceTest
{
public partial class Form1 : Form
{
WebServiceTest.ws.PKG_WEB_SERVICESService myService;
public Form1()
{
InitializeComponent();
chooseFnc.SelectedIndex = 0;
}
private void btn_Click(object sender, EventArgs e)
{
try
{
authentication();
switch (chooseFnc.SelectedIndex)
{
case 0:
resTxt.Text = myService.GET_DRIVER_BY_SHC(srchTxt.Text);
break;
case 1:
resTxt.Text = myService.GET_DRIVER_BY_SHM(srchTxt.Text);
break;
case 2:
resTxt.Text = myService.GET_DRIVER_BY_SHP(srchTxt.Text);
break;
case 3:
resTxt.Text = myService.GET_FREIGHTER_BY_SHC(srchTxt.Text);
break;
case 4:
resTxt.Text = myService.GET_FREIGHTER_BY_VIN(srchTxt.Text);
break;
case 5:
resTxt.Text = myService.GET_FREIGHTER_BY_SHP(srchTxt.Text);
break;
case 6:
resTxt.Text = myService.GET_PASSENGER_BY_SHC(srchTxt.Text);
break;
case 7:
resTxt.Text = myService.GET_PASSENGER_BY_VIN(srchTxt.Text);
break;
case 8:
resTxt.Text = myService.GET_PASSENGER_BY_SHP(srchTxt.Text);
break;
}
}
catch(Exception exp){
resTxt.Text = "یافت نشد!";
//resTxt.Text = exp.Message;
}
}
private void authentication()
{
String user = usr.Text;
String password = pass.Text;
myService = new WebServiceTest.ws.PKG_WEB_SERVICESService();
String urlll = myService.Url;
System.Net.CredentialCache myCredentials = new System.Net.CredentialCache();
System.Net.NetworkCredential netCred = new System.Net.NetworkCredential(user, password);
myCredentials.Add(new Uri(myService.Url), "Basic", netCred);
myService.Credentials = myCredentials;
}
}
}
فایل rar هم درست شد.ممنون میشم راهنمایی کنید
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول