tolong bantuannya donk ada nggak yg punya source utk mengirimkan file seperti file berkestensi .jpg atau .bmp ke komputer lain.??????? saya sudah dapat masuk ke komputer dgn IP 192.168.0.5 dan melihat-lihat file nya. komputer saya memiliki IP 192.168.0.4, jadi ketika saya mengconnectkan ke IP 192.168.0.5 saya sudah dapat melihat isi file-file di komputer tersebut. tapi saya masih bingung dalam pengiriman file ke komputer IP 192.168.0.5, jadi semacam upload file. mohon bantuannya

Pake Indy TIdTrivialFTP, ato bisa pake TCP Client-Server. Gampang koq hihihihi...

bisa gak ya pake API FileCopy atau CopyFile terus nama filenya diisi dengan format UNCName: \\COMPUTER_NAME\SHARE_NAME\FILE_NAME..?

terima kasiiiiiiih udah bisa tuh ... saya pake komponent serversocket dan clientsocket gini sourcenya : utk server : properties serversocket utk port = 50 (terserah nilao portnya, saya pake port 50)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp;
type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
    FStream: TFileStream;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R .dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
     FStream := nil;
     ServerSocket1.Active := True;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(FStream) then
  begin
    FStream.Free;
    FStream := nil;
  end;
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Socket.SendStream(TFileStream.Create('D:\data admin\logo-diknas.jpg', fmOpenRead or fmShareDenyWrite));
end;
end.

utk client : properties clientsocket address = 192.168.0.5 (Ip Komputer yg saya ingin ambil filenya) port = 50 (harus sama dgn port server) saya gunakan dua komponen button, satu utk ngambil file dan button yg satu lagi utk ngerefresh !!! gini sourcenya :

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Button2: TButton;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
     FStream: TFileStream;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R  .dfm}
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iLen: Integer;
  Bfr: Pointer;
begin
  iLen := Socket.ReceiveLength;
  GetMem(Bfr, iLen);
  try
    Socket.ReceiveBuf(Bfr^, iLen);
    FStream.Write(Bfr^, iLen);
  finally
    FreeMem(Bfr);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := nil;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(FStream) then
  begin
    FStream.Free;
    FStream := nil;
  end;
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Assigned(FStream) then
  begin
    FStream.Free;
    FStream := nil;
  end;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
FStream := TFileStream.Create('C:\logo-diknas.jpg', fmCreate or fmShareDenyWrite);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Assigned(FStream) then
  begin
    FStream.Free;
    FStream := nil;
  end;
end;
end.

akhirnya selesai permasalahan saya utk ngambil file :P :P nanti saya ta cariin masalah yg lain lagi ok !!!!!!!! :D :D

bro kalo upload/dwonload file dari kompie server gmn caranya? filenya berupa doc dan pdf? nyimpannya di database gmn? thks

@pai_chan: bro kalo upload/dwonload file dari kompie server gmn caranya? filenya berupa doc dan pdf? nyimpannya di database gmn? thks

sebaiknya anda dalami dulu dasar-dasar seputar teknologi informasi, architecture, implementasi & teknik pemrogramannya... rasa2nya susah nyampe'nya kalo dijelasin tentang pertanyaan anda :mrgreen:

@DelphiExpert: [quote:c5b459f55e="pai_chan"]bro kalo upload/dwonload file dari kompie server gmn caranya? filenya berupa doc dan pdf? nyimpannya di database gmn? thks[/quote:c5b459f55e] sebaiknya anda dalami dulu dasar-dasar seputar teknologi informasi, architecture, implementasi & teknik pemrogramannya... rasa2nya susah nyampe'nya kalo dijelasin tentang pertanyaan anda :mrgreen:

maksudnya apa bro??? gak mudeng? maklum newbie.... terimah kasih

@pai_chan: nah justru itu maksud rekan @DelphiExpert. sebelum Anda memulai memrogram upload / download file dari komputer sever, Anda setidaknya harus paham terlebih dahulu konsep arsitektur dari jaringan, juga file transfer protocol, network / socket communication, agar bisa nyambung dulu.

newbie nyambung ny.. woh qo semakin mummet ya,,, kayaknya berat mau ngelangkah kesana.. buat para Expert tolong kami dari segi point2nya.. ya ibarat tangga, tangga mana dulu yang harus di naikin iya nggak? :)

@keylock: newbie nyambung ny.. woh qo semakin mummet ya,,, kayaknya berat mau ngelangkah kesana.. buat para Expert tolong kami dari segi point2nya.. ya ibarat tangga, tangga mana dulu yang harus di naikin iya nggak? :)

ada yang tahu gmn caranya koneksi database yang letak databasenya di komputer server yg mengambil datanya komputer client! bantuin ya...!