Hi,
ich programmiere gerade einen
IRC-Chat. Ich ich dachte mal das ich ins Forum poste,
weil ich schon mehrere Tagen bei DCC hängen geblieben bin. Habe schon ein Mitglied von
hier PM's geschickt, er hier auch mal gepostet hatt. Hatt mich aber nicht viel weiter gebracht.
Erstmal Code:
Delphi-Quellcode:
Procedure TForm14.DCCSockConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
dcc_f:=TFileStream.Create(ExtractFilePath(Application.exename)+DCCReceive.FileName, fmCreate or fmOpenReadWrite);
end;
Procedure TForm14.DCCSockRead(Sender: TObject; Socket: TCustomWinSocket);
var
iLen: Integer;
Bfr: Pointer;
s: String;
begin
iLen:=Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
Socket.ReceiveBuf(Bfr^, iLen);
dcc_f.Write(Bfr^, iLen);
finally
FreeMem(Bfr);
end;
end;
Wenn mir einer was über DCC sendet wird ein ClientSocket erstellt. Das Verbinden funzt schonmal ganz gut. Also ich bekomme die
IP, Port usw. Wenn ich mich Connected habe, bekomme ich Daten gesendet. Leider empfange ich nur meistens 44,00 KB. Dann sendet er nichts mehr. Was mache ich falsch? Ich hoffe Ihr könnt mir helfen. Habe schon was weis ich in wieviele Forums gepostet. Und keiner konnte mir bißher so richtig helfen. Und da ich schon ein paar Tage dran hängt habe ich langsam die schnauze voll. Es gibt noch garnicht ma ein Protocol oder eine vernümftige Beschreibung über DCC.
MFG
Sven!