Bagi mereka2 yang suka ber chating ria dengan baik YM maupun mIRC pasti harus ke warnet dulu untuk menyalurkan hobinya. ribet…meski yang kita ajak chating hanya ada ruangan sebelah kita.
Sekarang kita bisa membuat mesin chating sendiri untuk jaringan lokal. Bagi yang sudah mengenal bahasa pemograman delphi pasti sudah familier dengan program ini. cukup dengan hanya kabel UTP kita bisa chatingan antar komputer. berikut source code nya.
antara 2 komputer yang dipakai, salah satunya sebagai server dan yang lain sebagai client.
berikut yang digunakan sebagai server.
procedure TForm1.Button1Click(Sender: TObject); // connect client
begin
serversocket1.Open;
memo1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject); //tombol kirim
begin
memo1.Lines.Add(‘server : ‘+memo2.Text);
if (serversocket1.Socket.ActiveConnections>0) then
serversocket1.Socket.Connections[0].SendText(‘server : ‘+memo2.Text);
memo2.Clear;
end;
{procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(‘accept dari’ + socket.RemoteHost);
end;}
{procedure TForm1.ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(‘accept + dari’ + socket.LocalHost);
end;}
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
memo1.Lines.Add(‘error dari’ + inttostr(errorcode));
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
serversocket1.Port:=25;
end;
procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(13) then
begin
memo1.Lines.Add(‘server : ‘+memo2.Text);
if (serversocket1.Socket.ActiveConnections>0) then
serversocket1.Socket.Connections[0].SendText(‘server : ‘+memo2.Text);
memo2.Clear;
end;
end;
end.
sedangkan untuk client source code nya sebagai berikut
begin
clientsocket1.Open;
memo1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add(‘client :’ +memo2.Text);
if (clientsocket1.Socket.Connected) then
clientsocket1.Socket.SendText(‘client : ‘+memo2.Text);
memo2.Clear;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
clientsocket1.Host :=’10.111.210.69′;
clientsocket1.Port :=25;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.RemoteHost);
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
memo1.Lines.Add(‘error’ + inttostr(errorcode));
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText);
end;
procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(13) then
begin
memo1.Lines.Add(memo2.Text);
if (clientsocket1.Socket.Connected) then
clientsocket1.Socket.SendText(‘client : ‘+memo2.Text);
memo2.Clear;
end;
end;
end.
dunia ialah Apple Inc. Posisi Apple Inc sebagai perusahaan yang paling dikagumi telah bertahan selama 4 tahun terakhir. Perusahaan yang dipimpin oleh Steve Jobs yang merupakan CEO berkarakter dan juga menjadi idola banyak orang menyusul ditengah kondisi kesehatannya yang kian memburuk namun dapat memimpin perusahaannya sebagai salah satu perusahaan teknologi terdepan dunia. Inovasi dan terobosan bisnis menjadi dua hal yang menjadi nilai lebih bagi Apple dalam memimpin industri teknologi dunia. Bahkan awal bulan ini Apple Inc telah merilis iPad 2 yang merupakan generasi lanjutan dari iPad generasi pertama yang telah sukses dan memberikan inspirasi bagi munculnya komputer tablet layar sentuh. 
dunia, posisi Berkshire Hathaway dipandang banyak memiliki peranan dalam dunia investasi tak terkecuali dengan membuat kebijakan pembelian saham perusahaan-perusahaan yang sedang mengalami krisis finansial dan butuh suntikan dana investasi. Pada tahun lalu, pengeluaran terbesar Berkshire Hathaway dikucurkan untuk membeli mayoritas saham Burlington Northern Santa Fe senilai 26 miliar dolar guna mengatasi krisis finansial yang sedang dialami perusahaan produsen rel kereta api tersebut. Melalui CEO-nya, Warren Buffet, Berkshire Hathaway ingin terus berupaya untuk mengembangkan sektor bisnis di tahun ini. Dari sisi individu, Warren Buffet juga dinilai memiliki inspirasi terutama dari segi philantropistnya. 
Coca-Cola, siapa yang tidak mengenal brand ini. Kini minuman ringan ini telah menjelma bukan hanya sebagai produk beverage, namun juga telah menjadi brand yang kental di seluruh dunia. Berbagai acara dan event dunia pun telah menjadi partner dan identik dengan brand ini seperti Piala Dunia dan kompetsi NBA. Sedangkan untuk McDonald's, posisinya sebagai perusahaan franchise restoran cepat saji sudah menjadi hal yang identik di seluruh belahan dunia. Kini jumlah restoran McDonald's telah sebanyak 32 ribu outlet dengan 400 ribu orang karyawan. 
perusahaan asal Asia tercatat masuk daftar tersebut. Yang paling mencolok ialah Singapore Airlines yang bercokol di urutan 18 dan merupakan penghargaan maskapai penerbangan terbaik dunia. Prestasi yang dimiliki oleh Singapore Airlines tidak lain merupakan sebuah penghargaan dari bagusnya pelayanan dan rating bisnis yang dimilikinya. Ketepatan waktu, kenyamanan dan pelayanan yang sempurna menjadikan Singapore Airlines menjadi favorit bagi konsumen. Kini maskapai ini melayani rute 61 tujuan terbang dari 35 negara diseluruh dunia. 
