Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
6. Nov 2004
Hallöchen nochmal,
ich bekomms einfach nicht gebacken.
Das senden geht nun manchmal, manchmal nicht. Das empfangen geht gar nicht.
Vielleicht habt ihr ja Lust das Teil mal zu testen.
So viel Erfahrung hab ich ja noch nicht. Vielleicht bekommt Ihr es ja hin.
Falls also jemand Lust haben sollte hab ich
das Teil mal hier auf meinen Server gelegt .
Ich danke Euch
Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
4. Nov 2004
Hallöchen,
jetzt hab ich glaube ich den Fehler gefunden, so gehts erst mal überhaupt :
procedure TForm1.ICQClient1SendFileData(Sender: TObject; UIN: Cardinal;
Data: Pointer; var DataLen: Cardinal; var IsLastPacket: Boolean);
begin
DataLen := SendStream.Read(Data^, 256);
edDataLen.Text:=IntToStr(DataLen);
Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
4. Nov 2004
Hallöchen,
ich hab das so wie das ist aus dem Beispiel übernommen.
Deswegen auch die Englischen kommentare.
Data ist wohl in der ICQWorks assoziiert denke ich mal. Weiss ichaber wirklich nicht genau.
Wie gesagt ich bin nur erst mal am probieren.
Zum Senden... deswegen weil ich das empfangen nicht so einfach ausprobieren kann, da bei mir immer nichts eingeht.
Ich hab jetzt hie nen Kumpel...
Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
4. Nov 2004
Hallöchen,
dank Euch schon wieder für die Antwort,
leider geht es auch wiede rnicht.
Kommt wieder deas gleiche. Wieder so ein Fensterchen mit irgendwelchen Zahlen.
Ich hab das ganze was zu dem File Senden gehört mal zusammengefasst und in ein kleines Projekt gemacht. Hier der Code...ist vielleicht für Euch ein
bischen besser wegen der Übersichtlichkeit.
Ich weiss nicht mehr was ich noch...
Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
4. Nov 2004
Hallöchen,
also da kommt das grosse fenster blos, keine richtige Fehlermeldung, das is ja das blöde.
Ich hab aber mal ein bidchend davon gemacht und hier angehangen.
Glaub aber nicht das das wirklich hilft :-(
Matthias
Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
4. Nov 2004
Hallöhen,
danke Euch erst mal für die Antworten !
Ich hab es jetzt so versucht, bekomme aber imme rnen schwersten Fehler, der nichtmal abzufangen geht.
(( Global ))
var
SendStream: TFileStream;
RecvStream: TFileStream;
Forum: Object-Pascal / Delphi-Language
Delphi
by goose33,
4. Nov 2004
Hallöchen,
ich hab ein kleines Problemchen mit der TICQ Komponente.
Beim empfangen von Dateien gibts da ne Procedure die sieht so aus :
procedure TMainForm.ICQFTFileData(Sender: TObject; UIN: Cardinal;
Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin
end;