-=-
.
.....
  
 
RSS
Direkomendasikan menggunakan brower Opera/Chrome/Firefox. Resolusi minimal 1024x768 | Powered by ____ |
 
  
 
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, 4 weeks ago
RE: تَقَبَّلَ اللهُ مِنَّا وَمِنْكَ - Selamat Hari Raya Idul Fitri
8 months, 4 weeks ago
Lintas Situs
«
free web site stats and visitor tracking

Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic Printable version Log in to check your private messages View next topic
Author Message
mankermanOffline
Location:
23 Post subject: Menampilkan Url IE biar ga double......????  PostPosted: 11/May/2009 22:49
onIntermediate


Joined: 13-Sep-2008
Posts: 35

Status: Offline
Buat temen2 tolong bantuannya, saya membuat program buat nampilin "Url" dari Internet explorer, udah bisa sih tapi kok url yang tampil jadi double kayak gini ( "http://www.google.com",""http://www.google.com" ) bukannya gini ( "http://www.google.com" )......
source saya kayak gini...

function ambilURL(Service: string): string;
var
Cl: TDDEClientConv;
temp: PChar;
begin
Result := '';
Cl := TDDEClientConv.Create(nil);
with Cl do
begin
SetLink(Service, 'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
Cl.Free;
end;

===================================
edit1Text:=ambilURL('IExplore');
===================================

Mungkin source saya diatas ada yang salah, saya mohon bantuannya dari temen2 di delphi-id buat benahin source diatas supaya bisa nampilin url yang ga double.......
Rolling Eyes Rolling Eyes

_________________
========== www.saikiwae.com ==========
===============================
 
 View user's profile Send private message Send e-mail  
Reply with quote Back to top
mas_kofa
Location: New York Arto
Post subject: RE: Menampilkan Url IE biar ga double......????  PostPosted: 11/May/2009 23:15
onElite


Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
kalo boleh pake cara akal2an mah kayak gini juga beres.....

code : pascal
  1. str := ambilURL('IExplore');
  2. str := copy(str, 2, pos('","', str) - 2);
  3. edit1.Text := str;
Parsed in 0.001 seconds, using GeSHi

_________________
Pay Per Day | Pesbuk
Me isn't mine
Aku Ini adalah satu

Cerdik seperti ular, Tulus seperti merpati
 
 View user's profile Send private message  
Reply with quote Back to top
mas_kofa
Location: New York Arto
Post subject: RE: Menampilkan Url IE biar ga double......????  PostPosted: 11/May/2009 23:16
onElite


Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
kalo boleh pake cara akal2an mah kayak gini juga beres.....


str := ambilURL('IExplore');
str := copy(str, 2, pos('","', str) - 2);
edit1.Text := str;

_________________
Pay Per Day | Pesbuk
Me isn't mine
Aku Ini adalah satu

Cerdik seperti ular, Tulus seperti merpati
 
 View user's profile Send private message  
Reply with quote Back to top
mankermanOffline
Location:
Post subject: RE: Menampilkan Url IE biar ga double......????  PostPosted: 11/May/2009 23:24
onIntermediate


Joined: 13-Sep-2008
Posts: 35

Status: Offline
Thank's banget mas_kofa buat bntuannya, ntar saya coba dulu saran dari mas_kofa......!!!!

_________________
========== www.saikiwae.com ==========
===============================
 
 View user's profile Send private message Send e-mail  
Reply with quote Back to top
mankermanOffline
Location:
Post subject: RE: Menampilkan Url IE biar ga double......????  PostPosted: 11/May/2009 23:38
onIntermediate


Joined: 13-Sep-2008
Posts: 35

Status: Offline
O ya mas_kofa mau tanya lagi ni...hehehe...
kalau ngeprint data yang ada di DBGRID gmn....??? bukan dari report...??

_________________
========== www.saikiwae.com ==========
===============================
 
 View user's profile Send private message Send e-mail  
Reply with quote Back to top
mas_kofa
Location: New York Arto
Post subject: RE: Menampilkan Url IE biar ga double......????  PostPosted: 12/May/2009 08:06
onElite


Joined: 18-Mar-2006
Posts: 1753
Location: New York Arto
bikin thread baru aja mas...jgn nyambung di sini...topiknya khan dah beda...

_________________
Pay Per Day | Pesbuk
Me isn't mine
Aku Ini adalah satu

Cerdik seperti ular, Tulus seperti merpati
 
 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   This topic is locked: you cannot edit posts or make replies.
View previous topic Printable version Log in to check your private messages View next topic





Powered by PNphpBB2 © 2003-2009 The Zafenio Team
Credits


| Register | Lost Password ? |