May 092016
 

Upload FIle with delphi and php

Assalamu’ alaikum wr wb

Upload File

Sekarang kita akan membahas sedikit aplikasi kecil untuk proses upload file dengan menggunakan delphi 7 sebagai client side nya dan php sebagai server side nya.

langsung saja buat form seperti pada gambar di atas.

lalu tulis stricpt di bawah ini :


unit UploadFile;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMultipartFormData, IdHTTP, HTTPApp, ExtCtrls,
OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Panel1: TPanel;
Button2: TButton;
Button1: TButton;
Edit1: TEdit;
WebBrowser1: TWebBrowser;
ComboBox1: TComboBox;
Edit2: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
//OpenDialog1.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStringStream;
Params: TIdMultipartFormDataStream;
HTTP: TIdHTTP;
url : String;
begin
{
Gambar
Excel
Word
Pdf
Other
}
Case ComboBox1.ItemIndex Of
0 : Begin
url := 'images';
end;
1 : begin
url := 'xls';
end;
2 : begin
url := 'doc';
end;
3 : begin
url := 'pdf';
end;
4 : begin
url := 'other';
end;
end;
Stream := TStringStream.Create('');
try
Params := TIdMultipartFormDataStream.Create;
try
Params.AddFile('fileToUpload', Edit1.Text ,'application/octet-stream');
try
HTTP := TIdHTTP.Create(Self);
HTTP.Post(Edit2.Text + '/upload_' + url + '.php', Params, Stream);
WebBrowser1.Navigate(Edit2.Text + '/upload-' + url);
//WebBrowser1.Refresh;
except
on E: Exception do
ShowMessage('Error encountered during POST: ' + E.Message);
end;
ShowMessage(Stream.DataString);
finally
Params.Free;
end;
finally
Stream.Free;
HTTP.Destroy;
end;
end;

end.

Lalu buat program di sisi server untuk menerima file yang di upload oleh delphi.

berikut source codenya :


<?php
$target_dir = "upload-other/";
$target_file = $target_dir . basename($_FILES["fileToUpload"]["name"]);
$uploadOk = 1;
$imageFileType = pathinfo($target_file,PATHINFO_EXTENSION);
// Check if image file is a actual image or fake image
if(isset($_POST["submit"])) {
$check = getimagesize($_FILES["fileToUpload"]["tmp_name"]);
if($check !== false) {
echo "File is an image - " . $check["mime"] . ".";
$uploadOk = 1;
} else {
echo "File is not an image.";
$uploadOk = 0;
}
}
// Check if file already exists
if(file_exists($target_file)) {
unlink( $target_file);
}
// Check if $uploadOk is set to 0 by an error
if ($uploadOk == 0) {
echo "Sorry, your file was not uploaded.";
} else {

if (move_uploaded_file($_FILES["fileToUpload"]["tmp_name"], $target_file)) {
echo "The file ". basename( $_FILES["fileToUpload"]["name"]). " has been uploaded.";
} else {
echo "Sorry, there was an error uploading your file.";
}
}
?>

simpan dengan nama : upload.php

Wassalamu’alaikum wr wb

Oct 252012
 

Assalamu’ alaikum wr wb

Jar To exe

Beberapa hari ini kembali lagi berkecimpung dalam pemrograman java, terutama SWT. Pada setiap kita selesai membuat sebuah aplikasi java pastilah kita akan menjadikan file tersebut menjadi jar. yang merupakan file binary dari java yang akan kita distribusikan.

Namun untuk windows kiranya kurang keren kalo tidak menjadi Aplikasi windows sendiri / exe / Execute table. Akhirnya saya teringat pada jaman dahulu saya pernah memakai exe4j untuk membuat jar menjadi exe. Tetapi kali ini saya tidak mau tergantung oleh aplikasi buatan orang, saya ingin buat sendiri ah.

Alogitmanya sebenarnya sederhana yaitu menjalankan comment java -jar aplikasi.jar, tetapi perintah itu akan di jalankan oleh program kecil saya. dengan sedikit kemampuan yang ada akhirnya tercinpta juga louncer untuk jar.

Download

Cara Penggunaan sangat mudah

  1. copykan file jar2exe ke folder yang sama dengan aplikasi yang anda buat.
  2. Rename jar2exe menjadi seperti file jar yang ada.
  3. Jalankan exenya.
Mungkin masih banyak bug dalam programkecil ini, semoga dapat di kembangkan.
Untuk source akan saya bagikan pada tutorial selanjutnya.

Wassalamu’ alaikum wr wb

Dec 082010
 

Assalamu’ alaikum wr wb

Lama tidak menulis akhirnya sekarang sempat juga menulis, kali ini saya akan berbagi dengan anda semua tenang lazarus dan freepascal.

ok langsung saja buat project baru untuk aplikasi command di lazarus kamu.

sekarang ketik script di bawah ini  :

program Project1;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
  var pokok,pangkat,hasil,i : Integer;
begin

  Write('Pokok = ');
  ReadLn(pokok);
  Write('Pangkat = ');
  ReadLn(pangkat);
  hasil := 1;
  for i := 1 to pangkat do begin
      hasil := hasil * pokok;
  end;
  Write(pokok);
  Write('^');
  Write(pangkat);
  Write('=');
  WriteLn(hasil);
end.

Program di atas akan menghasilkan pangkat sebuah bilangan.

untuk menjalankan tinggal panggil dari command / console kamu

sugik@mbahsomo:~$/home/sugik/latihan/pascal/project1

ok selamat mencoba

Wassalamu’ alaikum wr wb

Jan 292010
 

Tutorial pertama

Tempat download

  1. http://www.4shared.com/file/210180473/1cd47fcd/bin.html [Aplikasi]
  2. http://www.4shared.com/file/210180476/6cbe8b42/delphi2008Source.html

Semoga membantu

Aug 192009
 

Selanjutnya adalah vidio tutorial untuk para pengguna delphi, yang masih pemula.

Delphi

Delphi

Untuk download vidio silakan klik disini
pass = http://sugik.do-event.com