🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.nativeapi
Article #14875

Re: Need help with this code...

#14875
From: micheal davis
Date: Tue, 29 Jul 2003 15:09
26 lines
1885 bytes
Sorry for this message please discard this message...I've posted the correct
message


"micheal davis" <micheal_davis@hotmail.com> wrote in message
news:3f268cfa@newsgroups.borland.com...
> Hi all,
>
> I've got this Pascal code that enable grabbing URL from any IE window, but
> it seems not to work after I tried to translate it, so can some one help
me
> PLEASE translate this code.
>
> I enclosed the Pascal code and the C++ code after I trying to translate...
>
> The Pascal Code:
>
> Function GetText(WindowHandle: hwnd):string;vartxtLength : integer;buffer:
> string;begin TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0,
0);
> txtlength := txtlength + 1; setlength (buffer, txtlength); sendmessage
> (WindowHandle,wm_gettext, txtlength, longint(@buffer[1])); result :=
> buffer;end; function
>
GetURL:string;varie,toolbar,combo,comboboxex,edit,worker,toolbarwindow:hwnd;
>
Technical Details
Message-ID: <3f268e37@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!npeer.de.kpn-eurorings.net!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail
References: <3f268cfa@newsgroups.borland.com>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10cc67,a734be1e1c24cfbf
X-Google-Attributes: gid10cc67,public
X-Google-ArrivalTime: 2003-07-29 08:41:05 PST
From: "micheal davis" <micheal_davis@hotmail.com>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <3f268cfa@newsgroups.borland.com>
Subject: Re: Need help with this code...
Date: Tue, 29 Jul 2003 07:09:42 -0800
Lines: 28
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
NNTP-Posting-Host: 62.135.27.49
Message-ID: <3f268e37@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1059491383 62.135.27.49 (29 Jul 2003 08:09:43 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!npeer.de.kpn-eurorings.net!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail