HWND değeri bilinen metin kutusunun içeriğini access içerisine almak
Tarih
04/06/2012 14:57
Konu Sahibi
accessman
Yorumlar
2
Okunma
1312
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler
bu delphi ile metin kutusunun içeriğini alabiliyor
bunu accesse e nasıl uyarlayabiliriz

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TAnaForm.btnNot_icerikClick(Sender: TObject);
var
  h:HWND;
  c:array of char;
  s:string;
  uzunluk,i:integer;
begin

  h:= strtoint(pencere.text);
  if h = notkutusu.Handle then exit;
  uzunluk:=SendMessage(h,WM_GETTEXTLENGTH,0,0);
  SetLength(c,uzunluk+1);
  s:='';
  SendMessage(h,WM_GETTEXT,length(c),integer(@c[0]));
  for i:=0 to length(c) do s:=s + c[i];
  NotKutusu.Lines.Text:=s;

end;

teşekkürler

@benbendedeilem
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
bu delphi de yazılmış ama
hem delphi hem Access bilen bir arkadaş
vb kodlarıyla bunu yazabilir mi
teşekkürler
@benbendedeilem
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
ararken buldum arkadaşlar

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd _
    As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias _
    "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName _
    As String, ByVal nMaxCount As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE

' Return information about this window.
Public Function WindowInfo(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 Collection
Dim i As Integer

    ' Get the class name.
    buflen = 256
    buf = Space$(buflen - 1)
    buflen = GetClassName(window_hwnd, buf, buflen)
    buf = Left$(buf, buflen)
    txt = "Class: " & buf & vbCrLf

    ' hWnd.
    txt = txt & "    hWnd: " & _
        Format$(window_hwnd) & vbCrLf
        
    ' Associated text.
    txt = txt & "    Text: [" & _
        WindowText(window_hwnd) & "]" & vbCrLf

    ' Make a list of the child windows.
    Set children = New Collection
    child_hwnd = GetWindow(window_hwnd, GW_CHILD)
    Do While child_hwnd <> 0
        children.Add child_hwnd
        child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT)
    Loop
    
    ' Get information on the child windows.
    For i = 1 To children.Count
        txt = txt & WindowInfo(children(i))
    Next i

    WindowInfo = 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

@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Metin Kutusuna Yazarken Satır Kontrolü musteri53 6 74 3 saat önce atoz112
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 87 28/11/2016, 23:33 nightashes
  Metin Kutusu Hk. Serkan Çevik 2 61 25/11/2016, 23:40 Serkan Çevik
  Aynı Ürün Koduna ait kaydın son alanındaki değeri,yeni kayıtta ilk alanına yazdırmak yenginoglu 2 63 23/11/2016, 08:49 yenginoglu
Çözüldü seçime bağlı metin kutusunu tabloda aktif veya pasif yapma EROLAKSAKAL 13 4.008 12/11/2016, 11:48 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya