-=-
.
.....
  
| messages |
 
RSS
Direkomendasikan menggunakan brower Opera/Chrome/Firefox. Resolusi minimal 1024x768 | Powered by ____ |
 
KiOSS.Com
  
| Switch to Default View |
  
Nikmati Delphi-ID dalam berbagai versi tampilan :
Basic View (LOW Bandwidth)
Default View (Full)
Mobile Edition
Main Menu
..:: onWebTools ::..
..:: onLastPosts ::..
goto Postjumlah komponen maksimal dalam sebuah project(6)
 by d4mnf1y32
 on 21.May at 12:16
goto Posttanya grayscale to biner dengan scanline(1)
 by luckynvic
 on 20.May at 20:44
goto Posttanya looping biner to matriks(1)
 by luckynvic
 on 20.May at 20:10
goto Postsql error:acces denied for user....(2)
 by nasbms
 on 19.May at 16:54
goto Postpemanggilan frame(4)
 by nasbms
 on 19.May at 16:14
goto Posttanya AvLock(0)
 by azuriza
 on 19.May at 11:24
goto PostGet TDBEdit Value Menggunakan LookUp Grid(10)
 by henry_sys
 on 18.May at 11:27
goto Postmenghitung record dalam perulangan(4)
 by idhiel
 on 16.May at 13:53
goto Posttanya ascii(4)
 by mas_kofa
 on 16.May at 12:11
goto PostRawPrint Untuk Delphi XE2(0)
 by adewijaya
 on 15.May at 22:34
goto Postdatabase error..(4)
 by idhiel
 on 15.May at 15:57
goto Postbekasi, pt arila putra mahkota(3)
 by mas_kofa
 on 15.May at 15:37
goto Postbagaimana cara membaca file *.doc dg delphi?(0)
 by ficky
 on 15.May at 06:14
goto Posttanya biner to matriks(13)
 by diandewi
 on 14.May at 20:30

..:: onLast Articles ::..
..:: New Download ::..
Pascal-id.Org
Feeds -  Popular -  Latest
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: Perkenalan dan Absen
8 months, 3 weeks ago
RE: Alhamdulillah Buka Puasa Bersama
8 months, 3 weeks ago
RE: تَقَبَّلَ اللهُ مِنَّا وَمِنْكَ - Selamat Hari Raya Idul Fitri
8 months, 3 weeks ago
Lintas Situs
«
free web site stats and visitor tracking
•   Forum FAQ  •  Search  • 

ShellApi
Delphi Indonesia Forum Index » Pemrograman » Multimedia & Graphic Enhancement
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
Author Message
tommyOffline
Location:
5 Post subject: ShellApi  PostPosted: 18/Jul/2006 14:29



Joined: 18-Jul-2006
Posts: 1

Status: Offline
Mohon bantuannya.
Saya mau tanya nih, saya lagi belajar buat Laporan dari Qreport pada delphi 7, dan saya dapat program dari teman, namun pada saat dijalan ada tidak bisa jalan berikut saya copy listing program yang tidak bisa jalan
procedure Tfcaridata.tampilClick(Sender: TObject);
var
Outfile : TextFile;
begin
AdoQuery1.Close;
AdoQuery1.Open;
AssignFile(Outfile,'DBPegawaihtml.htm');
rewrite(Outfile);
DataSetPageProducer1.HTMLFile:='header.txt';
write(Outfile,DataSetPageProducer1.Content);
DataSetPageProducer1.HTMLFile:='isi.txt';
AdoQuery1.Prior;
While not AdoQuery1.Eof do
begin
write (Outfile,DataSetPageProducer1.Content);
AdoQuery1.Next;
end;
DataSetPageProducer1.HTMLFile:='footer.txt';
Write (Outfile,DataSetPageProducer1.Content);
Closefile(Outfile); ==>ShellExecute(Handle,'Open',pchar('DBPegawaihtml.htm),'
',nil,SW_SHOWMAXIMIZED);
end;

Pada saat di run program tidak bisa jalan dan cursor menunjukkan pada ShellExecute(Handle,'Open',pchar('DBPegawaihtml.htm),'
',nil,SW_SHOWMAXIMIZED);, dan pada delphi muncul [Error]Ucaridata.pas(178):unterminated string
[error]Ucaridata.pas(179):'expected but 'END' found.

dan di Unit nya tidak ada ShellApi apa yah yg harus dilakukan
mohon bantuannya.
 
 View user's profile Send private message  
Reply with quote Back to top
portegeOffline
Location:
Post subject: ShellApi  PostPosted: 18/Jul/2006 15:26
onSkilled


Joined: 02-Jul-2006
Posts: 95

Status: Offline
      Quote:
ShellExecute(Handle,'Open',pchar('DBPegawaihtml.htm),'
',nil,SW_SHOWMAXIMIZED);,

coba tambah:
uses
shellAPI;

      Quote:
dan pada delphi muncul [Error]Ucaridata.pas(178):unterminated string
[error]Ucaridata.pas(179):'expected but 'END' found.

kurang ' (kutip satu) sebagai penutup string pada ('DBPegawaihtml.htm)

semoga membantu.
 
 View user's profile Send private message  
Reply with quote Back to top
Display posts from previous:     
Jump to:  
All times are GMT - 12 Hours
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
 Delphi Indonesia Forum Index » Pemrograman »  Multimedia & Graphic Enhancement





Powered by PNphpBB2 © 2003-2009 The Zafenio Team
Credits


| Register | Lost Password ? |