Arsip: bikin tombol download source code

 
user image
more 14 years ago

alisahasan

Hai teman2 :) Mau nanya nich,… Aku buat sebuah aplikasi (sebut adja aplikasi 1), nah didalemnya, aku mau ada tombol yang nyatain(captionnya) begini : "download source code". Yang didalemnya ada sebuah file aplikasi yang lain (sebut adja aplikasi 2) dalam bentuk zip atau rar. (yang kaya’ disitus2 itu) Jadi, jika nanti para user nge-klick tombol ini, maka para user dapat langsung men-downloadnya. Dan bisa milih mau ke drive apa adja. Mohon bantuan mas2, teman2, dan mba2 semua ya, Terimakasih banyak :)
user image
more 14 years ago

kifmesoft

Dear Alisa Hasan.. ;) bisa dengan memanfaatkan "Resource Stream" kompres dulu source yg ingin disimpan (misal: SourceCode.rar) setelah itu buatlah file resource dengan sembarang Text Editor isikan didalamnya seperti ini :

nama_resource type_resource SourceCode.rar
kemudian simpan dengan akhiran .rc (misal: contoh_resource.rc) file "contoh_resource.rc" dikompilasi dengan brcc32.exe supaya menjadi "contoh_resource.res" caranya lewat dos prompt :

C:\>brcc32 contoh_resource.rc
hasilnya adalah "contoh_resource.res" kemudian tambahkan contoh_resource.res ke Unit yg akan menggunakannya.. berikut adalah contoh penggunaan resource beserta cara pengambilan data: perhatikan bagian {$R contoh_resource.RES}

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R  .DFM}
{$R contoh_resource.RES}
procedure TForm1.Button1Click(Sender: TObject);
begin
  If SaveDialog1.Execute Then
    With TResourceStream.Create(hInstance, 'nama_resource', 'type_resource') Do
    Begin
      SaveToFile(SaveDialog1.FileName);
      Free;
    End;
end;
end.
user image
more 14 years ago

amyra

Kalau yang resource-nya agak sulit dibajak baca artikle berikut ini di www.delphi3000.com judulnya "Universal embedding of files in Delphi unit"
user image
more 14 years ago

alisahasan

:) Hai mas Keft, jadi juga ketemuan di sini lagi :) Baik akan aku coba , mas kasih ya mas dan amyra :) Thanks a lot lhooo...
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com