Nasrul, kamu buat apa konsep ini, apakah kamu pakai Thin Client atau pakai PC ?. Cara - Cara seperti ini masih banyak kelemahannya. tqx
________________________________ From: NASRULLAH ARUL <[email protected]> To: [email protected] Sent: Monday, June 27, 2011 1:03 PM Subject: Bls: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih cepat int fh blob Emp_id_pic string ls_file,ls_file_name dw_header.accepttext( ) ls_file= dw_header.object.file_name2[1] ls_file_name= dw_header.object.file_name1[1] fh = FileOpen(ls_file, StreamMode!) if dw_header.update() = 1 then commit; else rollback ; end if IF fh <> -1 THEN FileRead(fh, emp_id_pic) FileClose(fh) UPDATEBLOB TB_SYS_UPDATE SET FILE_1 = :Emp_id_pic WHERE FILE_NAME1 = :ls_file_name USING SQLCA ; END IF IF SQLCA.SQLNRows > 0 THEN COMMIT USING SQLCA ; END IF untuk simpan blob lewat entry data, bisakah menggunakan scrip di atas, tetapi pas sy liat hasilnya di field blobnya keterangan isi nya hanya ada kata BLOB, terima kasih ________________________________ Dari: Setiawan Santosa <[email protected]> Kepada: [email protected] Terkirim: Sen, 27 Juni, 2011 10:49:32 Judul: Re: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih cepat ya pak, di server ada program kecil untuk upload.. ini contoh syntax nya.. di open event : li_app = fileopen("app.ini",LineMode!) if li_app = -1 then messagebox("PESAN","File parameter untuk Upload tidak diketemukan.") return end if do while true fileread(li_app,ls_file) ls_file = trim(ls_file) if isnull(ls_file) or len(ls_file) = 0 or ls_file = "end" then exit end if i++ is_app[i] = ls_file loop li_file = upperbound(is_app) if li_file = 0 then messagebox("PESAN","File parameter untuk Upload tidak diketemukan.") return end if for i = 1 to li_file /// tampilkan ini file ke listbox lb_file.additem(is_app[i]) next st_path.text = gs_srv select isnull(versi,0), tgl into :li_ver, :ld_app from main ; st_ver.text = "Versi " + string(li_ver) + " ( " + string(ld_app,"dd/mmm/yyyy hh:mm") + " )" di clicked event cb_proses : st_pro.text = "SEDANG PROSES....." delete from prg ; COMMIT ; FOR i = 1 to upperbound(is_app) b_lib = blob("") yield() ls_file = is_app[i] if fileexists(ls_file) = FALSE then rollback ; messagebox( "Open Error",ls_file+"~r~rFile tidak diketemukan.") return end if ll_filelength = filelength( ls_file) li_filenum = fileopen(ls_file, streammode!) if li_filenum = -1 then rollback ; messagebox( "Open Error","File open error occurred while tring to open " + ls_file ) return end if if ll_filelength > 32765 then if mod( ll_filelength , 32765 ) = 0 then loops = ll_filelength / 32765 else loops = ( ll_filelength / 32765 ) + 1 end if else loops = 1 end if for inx = 1 to loops fileread( li_filenum , b_read ) b_lib = b_lib + b_read next fileclose( li_filenum ) select count(*) into :li_c from prg where namafile = :ls_file ; f_err("") if li_c = 1 then updateblob prg set object = :b_lib where namafile = :ls_file ; f_err("") else // insert into prg ( namafile, versi, tgl ) insert into prg ( namafile ) values ( :ls_file ) ; f_err("") updateblob prg set object = :b_lib where namafile = :ls_file ; f_err("") end if NEXT setpointer(arrow!) // jika semuanya sukses, increment versi select count(*) into :li_c from main ; if li_c = 0 then insert into main ( versi, tgl ) values ( 1, GETDATE() ) ; else //sudah ada, update select isnull(versi,0) into :li_ver from main ; li_ver++ update main set versi = :li_ver, tgl = GETDATE() ; end if f_err("") if sqlca.sqlcode = 0 then COMMIT; messagebox("PESAN","Aplikasi telah di-Upload ke Server.") else f_err("") end if close(parent) contoh isi app.ini : main1.pbd transaksi.pbd report.pbd utiliti.pbd end ----- Original Message ----- > > >From: NASRULLAH ARUL >To: [email protected] >Sent: Monday, June 27, 2011 8:23 AM >Subject: Bls: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih >cepat > > >pa rubah file pbd nya ke blob gimana yah ...? apakah server perlu di psang >scrip juga? kan cuma copy pdb ke bob jika ada update tan baru..? baru di >client cek ke table tersebut apakah ada update baru atau tidak...? klo bisa di > prinst screan dong pa..?ma kasih... > >________________________________ > Dari: Setiawan Santosa <[email protected]> >
