Arsip: Indexing Document

 
user image
more 10 years ago

trimbil

Dear master semua.. bisa bantu kasih masukan buat melakukan Indexing Document? jadi saya ingin buat sebuah program melakukan indexing semua document yg ada di sebuah folder. (seperti search gt) semisal. ada folder 'satu' trus didalamnya ada 10 file document. ndah judul file tersebut dibaca and di Index. hasil indeknya dimasukan kesebuah table. (kalo bagian ini mungkin saya pny bayangan lebih). nah yg buntu adalah proses pembacaan document tsb. :cry: :cry: :cry: sampai saat ini, saya blm mendapatkn pencerahan mengenai caranya, atau memakai komponent apa saja. maap karna baru mulai mendalami delphi. terimakasih atas masukannya. :D
user image
more 10 years ago

heriy4nt0

Proses pembacaan judul document maksudnya membaca judul documentnya atau nama filenya ?
user image
more 10 years ago

setiabudi_david

Coba pakai saja procedure ini. Procedure ini bisa digunakan untuk mendapatkan judul dari semua file yang ada dalam suatu directory. procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + '. ', faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) <> 0; FindClose(SR); end; end; Cara Memanggilnya: ListFileDir([nama directory yang ingin dilist], listbox1.items); Dengan procedure di atas maka bisa didapatkan list file2 yang ada dalam suatu directory. setelah itu dapat diindex lebih lanjut
user image
more 10 years ago

trimbil

@heriy4nt0: Proses pembacaan judul document maksudnya membaca judul documentnya atau nama filenya ?
nama file and judul document D :D
user image
more 10 years ago

trimbil

@setiabudi_david: Cara Memanggilnya: ListFileDir([nama directory yang ingin dilist], listbox1.items);
gak jalan waktu pemanggilan gan. jd ane buat folder and dalam folder ada beberapa document atau file, trus ane panggil (nama foldernya=test). ane panggil: ListFileDir(test, listbox1.items); or ListFileDir([test], listbox1.items); [quote] [error]openfile.pas(49):undeclared identifier: 'test'; [quote]
user image
more 10 years ago

trimbil

at Setia budi, makasih yah, udah jalan :D :D :D
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com