Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Tmemo und threads

   
    by p80286, 29. Jun 2016
  Danke für den Hinweis, das kommt davon wenn man blöde abschreibt.
  SendMessage(FMsgCompHandle, WM_SETTEXT, 0, LPARAM(PChar(ll.Text)));
  (für mich ist Pchar noch in Ordnung!)
  
  Aaber...
  
  BS ist ein 64Bit-Windows. Kompiliert wurde das Programm mit D7 (also 32 Bit).
  Hier verweist SendMessage auf SendMessageA (Ansi-Text?) und es gibt keine Unterscheidung zwischen 32 und 64 Bit. Warum sollte es...
• Forum: Programmieren allgemein

  AW: Tmemo und threads

   
    by p80286, 28. Jun 2016
  Ich hab es mal umgesetzt, und es fluppt:
  
  procedure TDirThread.Execute;
  var
  ll : tstrings;
  begin
  ll:=tstringlist.Create;
  Dirliste(Muster,tstrings(ll)); //liefert alle subdirs unterhalb von muster
  SendMessage(FMsgCompHandle, WM_SETTEXT, 0, Longint(PChar(ll.Text))); //FMsgCompHandle ist das Handle vom Memo1
  ll.Free;
• Forum: Programmieren allgemein

  AW: Tmemo und threads

   
    by p80286, 27. Jun 2016
  Ich hab mal versucht mich schlau zu machen, SetWindowText scheint aber nur innerhalb eines Threads zu funktionieren, das Mittel der Wahl wäre dann SendMessage(..WM_SETTEXT..).
  (aber wo bleibt dann BeginUpdate/EndUpdate ?)
  
  
  Gruß
  K-H
• Forum: Programmieren allgemein

  AW: Tmemo und threads

   
    by p80286, 24. Jun 2016
  Wenn ich mich richtig erinnere hilft es aber bei anderen Tstrings-abkömmlingen und hier schadet's nicht. So hatte ich die OH verstanden.
  
  
  Das werde ich mir rahmen!
  
  
  
  Davon hab ich kaum ein Wort verstanden, wohl weil ich mich noch nicht so recht mit Mesages beschäftigt habe.
  
  Gruß
• Forum: Programmieren allgemein

  AW: Tmemo und threads

   
    by p80286, 22. Jun 2016
  "Anfassen" ist wohl das Stichwort. Da ich nicht weiß was der Mainthread so treibt, wenn ich es ihm nicht explizit sage, geht wohl kein Weg an dem "Zwischenpuffer" vorbei.
  
  (Grütze ist schön und beschreibt das Verhalten recht genau!)
  Edith:
  ich hab's jetzt geändert:
  
  templl:=tstringlist.Create;
  self.DataReaderThread:=TDBWriteData2TextThread.Create(ADODM.ADOQuery1,templl,self.Handle,true);
• Forum: Programmieren allgemein

  Tmemo und threads

   
    by p80286, 22. Jun 2016
  Hallo zusammen,
  ich habe eine Anwendung, die im Prinzip so aufgebaut ist:
  
  PseudoCode
  
  sqltext:=GetSQLText;
  if chk(sqltext) then Querythread;
  
  
  :EndofQuery