guten morgen leute,
hab folgendes problem:
habe in vb ein progg geschrieben, welches einfach emails von einem server abruft und in einem text feld öffnet...
dieses wollte ich in delphi nachschreiben, ich denke das geht genauso einfach...also:
Delphi-Quellcode:
button1
clientsocket1.host := 'pop.host.de';
clientsocket1.port := '110';
clientsocket1.open;
end;
procedure TForm1.sockConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
sock.Socket.SendText ('USER username);
sock.Socket.SendText ('PASS passwort');
sock.Socket.SendText ('RETR 1 ');
end;
jetzt fehlt mir der (invb) dataarrival part:
wie übertrage ich das in delphi, möglichst genauso ?
Delphi-Quellcode:
Private Sub clientsocket1_DataArrival(ByVal bytesTotal As Long)
Dim Incoming As Variant
sock.GetData Incoming, vbString
txtIn.Text = txtIn.Text & Incoming
End Sub
danke für hilfe !
hat keiner ne idee ?
[edit=Luckie] Schieben des Postings bitte erst nach mindestens 24 Stunden!Mfg, Luckie[/edit]
jepp okay....gibt es beim delphi clientsocket keine dataarrival funktion ?
wie kriege ich raus was bei mir ankommt ?