VB2DELPHI(50分)

aflower · 2000-04-27

小弟刚从VB转学DELPHI，现有一程序要从VB转成DELPHI，
请大家帮忙。先谢了！
下面的程序可以返回一个主窗口的文本框的文字。
有两个函数，EditInfo用来找到文本框的hwnd,
涉及到递归和动态数组, windowtext返回文本框文字。
Public Function EditInfo(window_hwnd As Long) As String
Dim txt As String
Dim buf As String
Dim buflen As Long
Dim child_hwnd As Long
Dim children() As Long
Dim num_children As Integer
Dim i As Integer
' Get the class name.
buflen = 256
buf = Space$(buflen - 1)
buflen = GetClassName(window_hwnd, buf, buflen)
buf = Left$(buf, buflen)

' See if we found an Edit object.
If buf = "Edit" then
EditInfo = WindowText(window_hwnd)
Exit Function
End If

' It's not an Edit object. Search the children.
' Make a list of the child windows.
num_children = 0
child_hwnd = GetWindow(window_hwnd, GW_CHILD)
do
While child_hwnd <> 0
num_children = num_children + 1
ReDim Preserve children(1 To num_children)
children(num_children) = child_hwnd

child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT)
Loop

' Get information on the child windows.
For i = 1 To num_children
txt = EditInfo(children(i))
If txt <> "" then
Exit For
Next i
EditInfo = txt
End Function
' ************************************************
' Return the text associated with the window.
' ************************************************
Public Function WindowText(window_hwnd As Long) As String
Dim txtlen As Long
Dim txt As String
WindowText = ""
If window_hwnd = 0 then
Exit Function

txtlen = SendMessage(window_hwnd, WM_GETTEXTLENGTH, 0, 0)
If txtlen = 0 then
Exit Function

txtlen = txtlen + 1
txt = Space$(txtlen)
txtlen = SendMessage(window_hwnd, WM_GETTEXT, txtlen, ByVal txt)
WindowText = Left$(txt, txtlen)
End Function

xWolf · 2000-04-27

有个程序叫VB2DELPHI,做的就是这个事。

Jams · 2000-04-28

aflower · 2000-04-28

to xwolf :那里有下？

aflower · 2000-04-28

只要转EditInfo就行，windowtext我自己会转换。
btw: 这是我第一次在这里提问。
<pre>Public Function EditInfo(window_hwnd As Long) As String
Dim txt As String
Dim buf As String
Dim buflen As Long
Dim child_hwnd As Long
Dim children() As Long
Dim num_children As Integer
Dim i As
Integer
' Get the class name.
 buflen = 256
buf = Space$(buflen - 1)
buflen = GetClassName(window_hwnd,
 buf, buflen)
buf = Left$(buf, buflen)

' See if we found an Edit object.
 If buf
= "Edit" then

EditInfo =
WindowText(window_hwnd)
Exit Function
End If

' It's not an Edit object. Search the children.
 ' Make a list of the
child windows.
 num_children = 0
child_hwnd = GetWindow(window_hwnd, GW_CHILD)
Do While child_hwnd &lt;&gt; 0
num_children
= num_children + 1
ReDim Preserve
children(1 To num_children)
children(num_children) = child_hwnd

child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT)
Loop

' Get information on the child windows.
 For i = 1 To num_children
txt = EditInfo(children(i))
If txt &lt;&gt; "" then
 Exit For
Next i
EditInfo = txt
End Function</pre>

温柔一刀 · 2000-05-14

http://qlion.163.net/software/Vb2d21.rar
转控件可能不太好用,但转这些程序代码应该没问题

aflower · 2000-05-16

<pre>unit ieaddress;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
lblAddress: TLabel;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function WindowText( var window_hwnd : longint ) : string;
function EditInfo( var window_hwnd : longint ) : string;
var
Form1: TForm1;
lblAddress: TLabel;
blEditVisible:boolean;
implementation
{$R *.DFM}
function EditInfo( var window_hwnd : integer ) : string;
var
txt : string;
buf : string;
buflen : longint;
child_hwnd : longint;
children : Variant {array};
num_children : integer;
i ,intchildren: integer;
begin

children := VarArrayCreate( [0,0], varInteger );
// Get the class name.
 buflen := 255;
buf := StringOfChar(' ', buflen - 1);
buflen := GetClassName(window_hwnd, pchar(buf), buflen);
buf := Copy(buf, 1, buflen);
// See if we found an Edit object.
 if buf = 'Edit' then

begin

Result := WindowText(window_hwnd);
blEditVisible := IsWindowVisible(window_hwnd);
exit; { EXIT FUNCTION }
end;
// It's not an Edit object. Search the children.
 // Make a list of the child windows.
 num_children := 0;
child_hwnd := GetWindow(window_hwnd, GW_CHILD);
while ( child_hwnd &lt;&gt; 0 ) do { begin
do
..WHILE }
begin

num_children := num_children + 1;
VarArrayRedim( children, num_children );
children[num_children] := child_hwnd;
child_hwnd := GetWindow(child_hwnd, GW_HWNDNEXT);
end; { ENDdo
..WHILE }
// Get information on the child windows.
 for i := 1 to num_children do
begin

intchildren:=children[i];
txt := EditInfo(intchildren);
if txt &lt;&gt; '' then

begin

break; { EXIT FOR }
end;
end;
Result := txt;
end;
// ************************************************
 // Return the text associated with the window.
 // ************************************************
function WindowText( var window_hwnd : longint ) : string;
var
txtlen : longint;
txt : string;
begin

Result := '';
if window_hwnd = 0 then

begin

exit; { EXIT FUNCTION }
end;
txtlen := SendMessage(window_hwnd, WM_GETTEXTLENGTH, 0, 0) ;
if txtlen = 0 then

begin

exit; { EXIT FUNCTION }
end;
txtlen := txtlen + 1;
txt := StringOfChar(' ', txtlen);
txtlen := SendMessage(window_hwnd, WM_GETTEXT, txtlen, integer(txt));
Result := Copy(txt, 1, txtlen);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b:integer;
begin

b:=strtoint(edit1.text);
lblAddress.caption:=EditInfo(b);
end;
end.</pre>

LSS · 2001-10-01

xWolf,温柔一刀,能否给我vb2delphi,收到后给100分，发过来就给分
email:harbinlss@21cn.com

VB2DELPHI(50分)

aflower

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

aflower

Unregistered / Unconfirmed

aflower

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

aflower

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

Similar threads