Buat aplikasi baru dengan cara sebagai berikut New>VCL Forms Application – Delphi for Win32.

New Form

Buatlah form seperti  tampak pada gambar berikut ini :

Form

Objeknya sebagai berikut ;

Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
HTTPRIO1: THTTPRIO;
Button2: TButton;

Tambahkan WSDL

WSDL

Masukkan  alamat web sevice. Jangan lupa menambahkan ?wsdl dibelakang alamat web service. Kemudian klik Next.

WSDL Wizard

Pada Wizard selanjutnya, disini bisa kita lihat fungsi yang ada pada web service yang telah kita tambah. Disini terlihat 2, yaitu Helloworld dan Tambahin

WSDL Code

Tambahkan unit service.pas pada Use Unit. Bisa dengan cara tekan ALT+F11, kemudian seleksi file service klik OK.

Use Unit

Pada  component  HTTPRIO1 di properties  URL, masukkan alamat web service. Contoh : http://localhost:1045/WebSites/Service.asmx?wsdl

HTTPRIO

Pada button tambah :

procedure TForm1.Button1Click(Sender: TObject);
var
x,y: integer;
begin
x := strtoint(Edit1.Text);
y := strtoint(Edit2.Text);
Edit3.Text := inttostr((HTTPRIO1 as servicesoap).
Tambahin(x,y));
end;

Pada button HelloWorld :

procedure TForm1.Button2Click(Sender: TObject);
var
hello : string;
begin
hello:= (HTTPRIO1 as servicesoap).
HelloWorld;
ShowMessage(hello);
end;

Jalankan aplikasi.

Pada solution explorer > WindowApplication1 klik kanan, Add Web Reference

Pada dialog Add Web Reference masukan alamat url lokasi web service yang telah kita jalankan diatas. Contoh lokasi http://localhost:1045/WebSites/Service.asmx . Beri Nama web reference sesuai kebutuhan anda.

Buat tampilan form aplikasi sebagai berikut :

Pada event click button1 masukkan kode sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim coba1 As New Service.Service

TextBox3.Text = coba1.Tambahin(TextBox1.Text, TextBox2.Text)

End Sub

Simpan aplikasi dan jalankan.

Ketika tombol tambah dklik maka operasi pertambahan yang ada pada web service akan dijalankan di hasilnya ditampilkan dibawahnya.

Selanjutnya kita buat aplikasi client dengan Delphi Code Gear 2007.

Mug Hello Kitty

Toples Hello Kitty

Mug Hello Kitty

Tempat Sabun Hello Kitty

Notebook + Accesoris Hello Kitty

Vacuum Cleaner Hello Kitty

Berikut ini adalah latihan membuat web service sederhana dan memanfaatkannya.

1. Membuat web service

Untuk membuat web service sample ini, saya menggunakan Microsoft Visual Studio 2005.
Langkah2nya sebagai berikut :
a. Buka aplikasi, kemudian pilih Create>Web Site…

b. Akan muncul dialog application sebagai berikut :

Templates : ASP.NET Web Service
Location : File System
Language : Visual Basic
Klik OK
Catatan

c. Maka akan terbentuk secara default sebagai berikut :

Pada Service.vb secara otomatis akan digenerate code sebagai berikut :

Sekarang mari kita tambahkan function

<WebMethod()> _
Public Function Tambahin(ByVal x As Integer, ByVal y As Integer) As Integer
Dim c As Integer = x + y
Return c
End Function

d. Simpan project. Sekarang mari kita run. Pada browser akan muncul tampilan sebagai berikut :

Pada list operasi terdapat 2 list. Helloworld dan Tambahin. Mari kita coba klik operasi Tambahan.

Pada contoh diatas kita menjalankan web service.

Selanjutnya mari kita buat aplikasi desktop untuk memanggil operasi yang ada pada web service yang telah kita buat.

C:\Program Files\FWTools2.2.8\bin>ogr2ogr -t
Usage: ogr2ogr [--help-general] [-skipfailures] [-append] [-update] [-gt n]
[-select field_list] [-where restricted_where]
[-sql <sql statement>]
[-spat xmin ymin xmax ymax] [-preserve_fid] [-fid FID]
[-a_srs srs_def] [-t_srs srs_def] [-s_srs srs_def]
[-f format_name] [-overwrite] [[-dsco NAME=VALUE] …]
[-segmentize max_dist]
dst_datasource_name src_datasource_name
[-lco NAME=VALUE] [-nln name] [-nlt type] [layer [layer ...]]

-f format_name: output file format name, possible values are:
-f “ESRI Shapefile”
-f “MapInfo File”
-f “TIGER”
-f “S57″
-f “DGN”
-f “Memory”
-f “BNA”
-f “CSV”
-f “GML”
-f “GPX”
-f “KML”
-f “GeoJSON”
-f “Interlis 1″
-f “Interlis 2″
-f “GMT”
-f “SQLite”
-f “ODBC”
-f “PostgreSQL”
-f “MySQL”
-f “Geoconcept”
-append: Append to existing layer instead of creating new if it exists
-overwrite: delete the output layer and recreate it empty
-update: Open existing output datasource in update mode
-select field_list: Comma-delimited list of fields from input layer to
copy to the new layer (defaults to all)
-where restricted_where: Attribute query (like SQL WHERE)
-sql statement: Execute given SQL statement and save result.
-skipfailures: skip features or layers that fail to convert
-gt n: group n features per transaction (default 200)
-spat xmin ymin xmax ymax: spatial query extents
-segmentize max_dist: maximum distance between 2 nodes.
Used to create intermediate points
-dsco NAME=VALUE: Dataset creation option (format specific)
-lco NAME=VALUE: Layer creation option (format specific)
-nln name: Assign an alternate name to the new layer
-nlt type: Force a geometry type for new layer. One of NONE, GEOMETRY,
POINT, LINESTRING, POLYGON, GEOMETRYCOLLECTION, MULTIPOINT,
MULTIPOLYGON, or MULTILINESTRING. Add “25D” for 3D layers.
Default is type of source layer.
-a_srs srs_def: Assign an output SRS
-t_srs srs_def: Reproject/transform to this SRS on output
-s_srs srs_def: Override source SRS

Srs_def can be a full WKT definition (hard to escape properly),
or a well known definition (ie. EPSG:4326) or a file with a WKT
definition.

-f “ESRI Shapefile” “output” “source”

Sample
C:\Program Files\FWTools2.2.8>ogr2ogr.EXE -f “ESRI Shapefile” “D:\Target\target.SHP” “D:\Source\source.TAB”

1. Enabled Bluetooth device on your notebook.
2. Turn on BH-502
3. Clik right mouse on icon bluetooth, Quick Connect> HeadSet
do search devices.

4. Now open Windows Media Player 11. Clik mouse right Now Playing. Clik More Options…

5. On Options select Devices tab> Speaker. Speaker Options select audio devices Bluetooth options.

6. If you are absolutely sure that you have done all these steps, try restarting the system.

NB : HB-503 just working with wmp11. Does’n working with iTunes.

User Guide

Menerima pemesanan coklat

CQ2250d + 15″ LCD Retail Price
• Intel® Atom™ 330 Processor (1.66GHz, 1MB L2 Cache, 533MHZ) $456
• Windows Vista® Home Basic
• 1GB DDR2, PC2-4200/533MHz
• 320GB 3G SATA (7200rpm)
• Intel® 945GC Express Chipset
• Intel® GMA 950 Graphics
• Supermulti SATA Drive with Lightscribe Technology
• 6-in-1 Digital Media Reader
• K56 flex modem
• 15” LCD monitor
• 1 Year Limited Warranty

3,5
gress
masih di kardus

Hubungi : 08158738612 an. SMS

HP Mini 2140 Retail Price
Intel® Atom N270 Processor (1.6 GHz, 512 KB L2 cache, 533 MHz FSB) $585
Windows XP® Home Basic
Mobile Intel 945GSE Express Chipset
160GB SATA HD
1 GB DDR2 SDRAM
10.1 inch display
Mobile Intel® GMA 950
High Definition Audio, sterio speakers & stereo microphones, sterio headphone/line out & microphone in, integrated VGA webcam
Broadcom 802.11a/b/g/n, b/g, optional
Bluetooh™ 2.0, HP Wireless Assistant
6 cell battery*

Barang baru , gress masih di kardus. Garansi 1 tahum pas nya aja, jangan di nego lagi ya 4,8.

Hubungi : 08158738612 an. SMS

Bagi yang ingin menjadikan lagu Marhaban Ya Syahru Ramadhan sebagai ringtone, bisa download di bawah ini. Kebetulan suara anak kecilnya yang lebih ane tonjolin …

Selamat Berpuasa…Semoga puasa kita diterima Allah swt..Amin

Dowload