Stevie

Wärst du so freundlich, mal kurz zu erläutern, wie man damit Mails verschickt und empfängt? Vielleicht etwas Code?! Thx!

Ich versuche, mit einer NMSMTP-Komponente eine Mail zu verschicken. Das klappt auch wunderbar bis auf einige Schönheitsfehler: In der Mail befindet sich immer als erstes eine Leerzeile und das Sendedatum wird nicht angezeigt. Wie kann ich das beheben? Der Quellcode: procedure TfrmWinMail.btnSendClick(Sender: TObject); begin with SMTP do begin Connect; with PostMessage do begin ToAddress.Clear; ToAddress.Add(edToAddress.Text); Subject := edSubject.Text; Body.Clear; Body.Add(edBody.Text); end; SendMail; MessageDlg('E-Mail verschickt.', mtInformation, [mbOK], 0); Disconnect; end; end; Host, FromAddress und FromName hab ich in den Eigenschaften schon festgelegt. Charset steht auf us-ascii.

Ich sitz zwar in einem schattigen Büro, AAABER das Fenster ist kaputt und wir können es nicht mehr öffnen. *langsamerstick* Zum Glück kann ich in 20 Minuten abhauen. "Luuuft!!!"

Ich Depp! Das hab ich auch gemacht, aber vergessen, es hinzuschreiben, so: var MyIcon: TIcon; begin MyIcon.LoadFromFile('MyIcon.ico'); <-- IconDatei im Project-Verzeichnis TrayIcon.hIcon := MyIcon.Handle; Shell_NotifyIcon(NIM_MODIFY, @TrayIcon); end;Es klappt so aber nicht. TrayIcon ist global.

Neues Problem: Ich hab mein Programm aus der Taskleiste in den Tray verbannt, und zwar so: procedure TfrmMyProgram.FormShow(Sender: TObject); begin ShowWindow(Application.Handle, SW_HIDE); with TrayIcon do begin cbSize := SizeOf(TrayIcon); Wnd := Handle; uID := 0; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallbackMessage := IC_CLICK; hIcon := Application.Icon.Handle; szTip := 'Mein Programm'; end; Shell_NotifyIcon(NIM_ADD, @TrayIcon); end; Nun will ich bei einem bestimmten Ereignis das Icon ändern, sodass man sieht, dass etwas passiert ist. Ich hab schon das hier versucht:var MyIcon: TIcon; begin MyIcon.LoadFromFile('MyIcon.ico'); <-- IconDatei im Project-Verzeichnis TrayIcon := MyIcon.Handle; end;Das Icon ändert sich nicht, und wenn ich das Fenster öffne, kann ich es nicht mehr minimieren! Was mache ich falsch?

Jo, thx! Klappt zumindest schonmal auf meinem und einem W2K-Rechner!

Ich ich hab mal kurz ne Frage: Wie kann ich Videos vom Recorder auf den PC aufnehmen und die Aufnahmen hinterher auf DVD brennen?

Hi, ich hab RichEdit auf meinem Formular und jedesmal, wenn eine neue Zeile dazukommt, soll nach unten gescrollt werden. Dazu benutze ich folgende Befehle: edThread.Perform(WM_VSCROLL, SB_BOTTOM, 0); edThread.Perform(WM_VSCROLL, SB_PAGEUP, 0); Das funktioniert auf meinem Rechner (WinNT SP6) und auf weiteren WinNT-Rechnern, aber nicht auf allen. Dort wird nicht nach unten gescrollt. Ebenso auf Win2K-Rechnern. Eine Vermutung von mir ist, dass dort mir dem ersten Befehl nach unten gescrollt wird und mit dem zweiten wieder nach oben. Allerdings kann ich den zweiten nicht weglassen, weil sonst unter die letzte Zeile gescrollt wird. Wie kann ich das Problem beheben?

Mjein, ich kann doch einfach Daten auswählen ohne sie irgendwo zu speichern, das gibt normalerweise keinen Fehler. Ist eben nur unsinnig. Mir ging es ja auch nur darum, zu testen, ob die Berechtigung dort stimmt. Ich meine, SYS muss doch wohl die Berechtigungen haben um so eine Tabelle zu selektieren, oder?! HILFE!!!

Ich krieg echt'n Affen! Der Benutzer hat schon die Berechtigung, alle Tabellen zu selektieren! Aber ich hab mal was anderes probiert: Als SYS hab ich das hier geschrieben: CREATE OR REPLACE PROCEDURE Test_Proc IS BEGIN SELECT * FROM dba_extents; END Test_Proc; /Da gibt der mir diesen Fehler hier (mit Verweis auf Zeile 3): PLS-00428: In dieser SELECT-Anweisung wird eine INTO-Klausel erwartet Wenn ich diese Zeile wieder einfach als Befehl absetze, klappt's. Ich raff das nicht! :confused:

Hast du Admin-Zugriff zur Verfügung? - Ja, aber nicht unter dem Schema, wo diese Prozedur liegt. Kannst du berechtigungen vergeben? - Ja. Hast du die Berechtigungen ggf. schon mal überprüft? - Nein, welche sollte der Benutzer denn haben? Hast du Enterprise Manager oder so zur Verfügung? - Ja, DBA-Studio.

Hallo, in der Firma sind wir von Oracle8 auf Oracle9 umgestiegen. Dabei hat sich ein Problem aufgetan: Ich hatte vor zwei Wochen eine Prozedur geschrieben, die eine Auswertung der Datenbank vornimmt. Dabei wird auf die Tabelle dba_extents zugegriffen. Aber plötzlich funktioniert die Prozedur nicht mehr und es kommt folgender Fehler: "PL/SQL: ORA-00942: Tabelle oder View nicht vorhanden". Schreibe ich SELECT * FROM dba_extents im SQL-Fenster (ich benutze TOAD), funktioniert alles bestens, aber wenn ich CREATE OR REPLACE PROCEDURE Test_Proc IS BEGIN SELECT * FROM dba_extents; END Test_Proc; / im Prozedur-Editor schreibe, gibt er mir den oben genannten Fehler. Meine Vermutung ist, ein Berechtigungsproblem. Aber wie kann es behoben werden?

Ja, danke. Habs auch schon gefunden. Und MB_ICONQUESTION ist ein Fragezeichen.

Kannst du mir die folgende Zeile einmal mit der Application.MessageBox posten? if MessageDlg('Neue Nachricht! Wollen Sie sie lesen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Application.Restore;

Nö, ich hab auch diese Absätze, und die mails gehen über den Mail-Server der Firma. (frag mich aber nicht, welche Software :floet: )

Hi Leute, ich hab in mein Chat-Programm eingebaut, dass ein MessageDlg angezeigt wird, wenn es minimiert ist, und eine neue Mitteilung kommt. Der Dialog erscheint, aber ich bekomme nix davon mit, wenn andere Fenster öffen sind, weil sie davor ist. Wie kann ich den Dialog in den Vordergrund bringen, aber mit der Möglichkeit, andere Fenster wieder davor zu tun und so, dass das Fenster minimiert bleibt? if (IsIconic(Application.Handle)) then begin if MessageDlg('Neue Nachricht! Wollen Sie sie lesen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then ShowWindow(Application.Handle, SW_RESTORE); end;

Danke, ich hab das Problem jetzt anders gelöst: Da ich ja sowieso einen Server hab, über den alles läuft, kann ich mit den Client-Connections arbeiten und muss zur Laufzeit nicht die Ports oder Adressen ändern.

Hi Leute, ich versuche gerade ein Chat-Programm mithilfe der Server- und Client-Sockets zu schreiben. Ich benutze eine Server-Instanz, die alle Nachrichten verwaltet und an der sich die Clients anmelden können. Dabei ergibt sich folgendes Problem: Wenn ich während der Laufzeit einen Client-Socket mit Close schließe, Address und/oder Port ändere und dann wieder mit Open öffne, bekomme ich einen Fehler (eeConnect). csWinChat.Close; csWinChat.Address := tblClient[iClient].Name; csWinChat.Port := 51000; csWinChat.Open; while not csWinChat.Active do Application.ProcessMessages; Lasse ich den Server und die Clients auf einem PC lokal laufen, funktioniert alles. Die Übermittelung an sich funktioniert, denn vorher werden Nachrichten ausgetauscht. Ich hoffe, ich hab alles (halbwegs) verständlich erklärt und jemand kann mir helfen.

Sorry!!! :floet: Borland Delphi 6.

Hallo Leute, ich brauche eine ComboBox mit einer CheckBox vor jedem Eintrag. Sie soll genauso, wie die TComboBox funktionieren, nur dass man noch zusätzlich die Einträge mit einem Haken versehen kann, so wie bei der TCheckListBox. Kann mir jemand dabei helfen?

Öhm, orange ist totaaal schön! :floet:

*StefanEaufdiefingerklopf*

Nö, keine Haluzinationen. Ich seh's auch. Is ja ekelhaft!!! @E@sy: Hey!!! Finger weg vom Farbregler!!!

@Mods: Bitte verschieben! Danke.

Eine Frage: Welche Posts werden eigentlich zu meinen Beiträgen gezählt? (und ergeben so meinen Rang?)