Master dan suhu :lol:, aq newbie nih mau tanya ttg thread.. Kenapa ya sulit banget mahamin yang namanya thread.. ada yang bisa bantu ga gimana caranya supaya gampang mahamin thread.. tapi yang simple ya... referensi dan tautan pun gpp, asal bahasa indo dan gampang dipelajari... pliisss... help mi ya... :oops: :wink:

setau saya, kl di DB MySQL mendukung Multi Treading yg artinya mampu menerima query yang bertumpuk dalam satu permintaan. ex : query 1 "Insert", query 2 "Update", Query 3 "Select". jd ke-tiga query tsb dieksekusi sekaligus. smoga membantu..

Thread merupakan bagian terkecil dari sebuah proses. sebenarnya Thread dengan Proses hampir sama yang saya tau perbedaan mendasarnya adalah Proses berjalan Sendiri/Berdikari sedangkan tread dapat dijalankan secara bersama-sama serta dapat berbagi info antar sesama tread krn dia ada didalam Proses Ilustrasi thread pada Proses transaksi INSERT 1. Konek ke database 2. Insert Data ke setiap Field berdasarkan Query 3. COMMIT OR ROLBACK klu di prosessor yang memiliki core lebih dari satu, thread 1,2 dan 3 bisa dieksekusi secara bersamaan tetapi klu single core itu biasanya deksekusi sequensial. tetapi yang membuat dia seolah-olah dieksekusi secara bersamaan adalah operating system(OS) dengan cara memecah thread tersebut kedalam bagian2 kecil lagi. Contoh seperti IDM (Internet Download Manager) Prosesnya adalah DownloadFile sedangkan threadnya adalah koneksi2 yang dibuat untuk download part file tersebut dari berbagai server yang ada itu yang saya bisa share tentang thread, klu ada yang keluru tlg diluruskan...

contoh Thread di delphi :

unit Unit1;
interface
uses
  Forms, Dialogs, Windows, SysUtils;
type
  TMsgRecord = record
    thread : Integer;
    msg    : string[30];
  end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
var
  Form1: TForm1;
Implementation
{$R .dfm}        // Include form definitions
ThreadVar         // We must allow each thread its own instances
                  // of the passed record variable
  msgPtr : ^TMsgRecord;
// Private thread procedure to show a string
function ShowMsg(Parameter : Pointer) : Integer;
begin
  // Set up a 0 return value
  Result := 0;
  // Map the pointer to the passed data
  // Note that each thread has a separate copy of msgPtr
  msgPtr := Parameter;
  // Display this message
  ShowMessagePos('Thread '+IntToStr(msgPtr.thread)+' '+msgPtr.msg,
                 200 msgPtr.thread, 100);
  // End the thread
  EndThread(0);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  id1, id2 : LongWord;
  thread1, thread2 : Integer;
  msg1, msg2 : TMsgRecord;
begin
  // set up our display messages
  msg1.thread := 1;
  msg1.msg    := 'Hello World';
  msg2.thread := 2;
  msg2.msg    := 'Goodbye World';
  // Start the first thread running asking for users first name
  thread1 := BeginThread(nil,
                         0,
                         Addr(ShowMsg),
                         Addr(msg1),
                         0,
                         id1);
  // And also ask for the surname
  thread2 := BeginThread(nil,
                         0,
                         Addr(ShowMsg),
                         Addr(msg2),
                         0,
                         id2);
  // Ensure that the threads are only closed when all done
  ShowMessagePos('Press this when other dialogs finished.', 200, 300);
  // Finally, tidy up by closing the threads
  CloseHandle(thread1);
  CloseHandle(thread2);
end;
end.

:D

Makasih mas2 semua, untuk pendahuluannya membuat saya lebih faham dan semakin bersemangat mempelajari thread nih.. tapi untuk peng-aplikasian dalam logic nya gimana ya..??? :lol: