تبدیل کد c# به pascal (سورس کوتاه)

[hamid_14]

سلام
این برنامه برای استعلام رانندگان و خودرو از سایت سازمان حمل و نقل هست.می خوام مثل نمونه برنامه ای که تو این فایل داره در دلفی ایجاد کنم ولی بلد نیستم.فایل راهنماشم داخلش هست همراه با نام کاربری و کلمه عبور.برنامه خیلی کوچیکه و من بهش نیاز دارم لطفا راهنمایی بفرمایید.تشکر

وب سرویس هستش.

[firststep]

سلام من که نتونستم فایلrar تویشو باز کنم اما از فایل ورد معلوم بود که باید از web service استفاده کنی که کاره زیاد سختی نیست ضمن اینکه اگر بتونی ویدی های اقای عشایری رو گیر بیاری در این خصوص ( استفاده از web service ) مطلب دارن
موفق باشید

[یوسف زالی]

سلام.
چه راهنمایی ای؟
چقدر از کار رو بردید جلو؟
سورس سی شارپ گذاشتید دلفی می خواهید؟
اگر این طوره، با یکی از همین دوستان بصورت پروژه ای انجامش بدید و در تالار مطرحش نکنید.
در غیر این صورت دقیقا بگید در کدوم قسمت ایراد دارید.

[hamid_14]

ممنون از راهنمایی شما
این متن سورس 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 هم درست شد.ممنون میشم راهنمایی کنید

[hamid_14]

با استفاده از لینک زیر wsdl دریافت کردم و یک یونیت ساخت:
http://smartcard.rmto.ir:7003/i/web_service/PKG_WEB_SERVICES.xml?wsdl

و در دلفی از این کد استفاده کردم ولی ارور میده.

procedure TForm1.Button1Click(Sender: TObject); var
d : PKG_WEB_SERVICESPortType;
begin
Memo1.Lines.Clear;
//-------------------------
d := GetPKG_WEB_SERVICESPortType(true,'http://smartcard.rmto.ir:7003/i/web_service/PKG_WEB_SERVICES.xml?wsdl',nil);
Memo1.Lines.Text := d.GET_DRIVER_BY_SHC(Edit1.Text);
end;
البته شرکتش یک یوزر و پسورد هم داده که نمی دونم چطور باید استفاده کنم.
username:tr_web_service
password:tr_web_service123