TICQClient - Filetransfer

[Neutral General]

Hi,

Ich bekomme den Filetransfair mit der TICQClientkomponente nicht hin.. Ich hab sie schon so modifiziert das man sich einloggen kann und Messages empfangen kann. Muss man da vielleicht noch etwas verändern?

Ich versuche es bisher einfach so:

Delphi-Quellcode:

ICQ.SendFileDC(UIN,Filename,Description);

Wäre für Hilfe sehr dankbar!

Gruß
Neutral General

[gsh]

ist auch der gegenseite das entsprechende Port im Router bzw. Firewall freigegeben?

[Neutral General]

Ja bei mir funktioniert der Filetransfer... Ich schicke mir ja mit meiner zweiten ICQ nr von MEINEM ICQ-Clienten eine Datei zu meiner Haupt-ICQ-Nummer... Es kommt ja nichtmal diese Anfrage..

[alias5000]

So und zu einem Fremdrechner funktioniert dies nicht?

Dann gehts hier wirklich um die Freigabe im Router und/oder Firewall.
Als Beispiel: bei meinem original ICQ (sowie Trillian, Miranda,...) funktioniert der File Transfer auch nicht, weil ich keine Routerfreigabe drinnen habe (verschiedene andere Gründe ;) )

Also schau bitte erstmal danach, falls das wirklich der Fall ist.
Welcher Port das ist, das wird dir die Source vom TICQClient, bzw. Google sicher sagen

Gruß
alias5000

[Neutral General]

Zitat:

Zitat von alias5000

So und zu einem Fremdrechner funktioniert dies nicht?

Da hast du etwas falsch verstanden...

Ich sitze hier an einem Rechner.. mit meiner Haupt-ICQ-Nr in ICQ5 und mit meiner Zweit-ICQ-Nr in meinem Programm online.. alles an einem Rechner.. und jetzt will ich von meiner Zweit-ICQ-Nr. eine Datei zu meiner Haupt-ICQ-Nr schicken... Und das funktioniert nicht. Wenn ich das mit ICQ mache und nicht mit meinem Clienten dann ist das kein Problem...

:arrow: ICQ-Filetransfer generell funktioniert!

Also was ich herausgefunden habe:

In TICQClient.SendFileDC wird

Delphi-Quellcode:

fDirect.SetFileRecord(UIN, FileSend);

aufgerufen. Und dort wird auf

Delphi-Quellcode:

fUL

zugegriffen. Da sind irgendwie die Benutzerdaten für den Filetransfer gespeichert. ABER bei mir ist diese Liste leer. Das heißt es geht dort nicht weiter!

Hinzufügen tut man einen solchen Benutzer mit fDirect.AddUser(...). Das weiß ich auch.. Aufgerufen wird diese procedure aber nur ein einziges mal und zwar in

Delphi-Quellcode:

TICQClient.HSnac030B

und das auch nur

Delphi-Quellcode:

case GetInt(Pkt, 2) of
  $0a

TICQClient.HSnac030B wird auch nur ein einziges mal aufgerufen und das in

Delphi-Quellcode:

TICQClient.HandlePacket

Die wird immer aufgerufen wenn ein Paket ankommt.. Aber HSnac030B wird auch nur aufgerufen wenn

Delphi-Quellcode:

case Flap.ChID of
  $03: ...
        case Snac.SubType of
           $0B: {SRV_USERONLINE}
              HSnac030B(Flap, Snac, @pkt);

Und das wird nie aufgerufen

:arrow: fDirect.AddUser wird nie aufgerufen.

fDirect ist ausschließlich privat erreichbar. Jetzt ist die Frage welches Paket da irgendwie ankommen muss und wie ich dafür sorge das ein solches Paket ankommt....

Ich hoffe man konnte das irgendwie verstehn^^

Gruß
Neutral General

[Neutral General]

Es gibt neues von der Front :wall:

in der Procedure wo auch AddUser aufgerufen wird

Delphi-Quellcode:

procedure TICQClient.HSnac030B(Flap: TFlapHdr; Snac: TSnacHdr; Pkt: PRawPkt);

wird auch vorher dieser Block ausgeführt:

Delphi-Quellcode:

case GetInt(Pkt, 2) of
    $0c:
    begin
      Inc(Pkt^.Len, 2);                 //TLV's Length
      FIntIP := GetLInt(Pkt, 4);        //Internal IP
      FIntPort := GetInt(Pkt, 4);       //Internal port
      FConnFlag := GetInt(Pkt, 1);      //Connection flag
      FProtoVer := GetInt(Pkt, 2);      //Protocol version
      FDconCookie := GetLInt(Pkt, 4);   //Direct connection cookie
      //*eraser 10.03.04
      Inc(Pkt^.Len, 8);                 //Skip unknown data
      ICQVersion := GetInt(Pkt, 4);     //time(NULL), ff ff ff ff - Miranda
      MirandaVersion := GetInt(Pkt, 4); //time(NULL), version information
      Inc(Pkt^.Len, 6);                 //Skip remaining data
    end;

diese Daten werden dann bei AddUser übergeben:

Delphi-Quellcode:

FDirect.AddUser(StrToInt64(UIN), FDConCookie, FExtIP, FIntIP, FIntPort);

Aus IRGENDEINEM Grund ist FIntPort aber 0 und die IP Adressen alle 0.0.0.0....
Habe herausgefunden das diese Daten nachher gebraucht werden beim Filetransfer.. klar das man sich mit den Daten nirgendwohin verbinden kann......

Es wäre echt nett wenn mir jemand helfen würde. Das ist echt wichtig :X

Gruß
Neutral General

[3_of_8]

Also ich glaube, das ICQ grundsätzlich alle File-Transfers von allen Nicht-ICQ-Clients blockt.

[Gecko]

Zitat:

Zitat von 3_of_8

Also ich glaube, das ICQ grundsätzlich alle File-Transfers von allen Nicht-ICQ-Clients blockt.

Das ist Unsinn...Filetransfer geht mit Gaim und QIP problemlos...

[3_of_8]

Mit Trillian nicht. *kratz*

Und zwar bei niemandem, den ich kenne.

[Meflin]

Zitat:

Zitat von 3_of_8

Mit Trillian nicht. *kratz*
Und zwar bei niemandem, den ich kenne.

Wahnsinn. Dann kennst du jetzt einen :roll: Natürlich funktioniert das, wenn man schlau genug ist seinen Router im Griff zu haben...

Mit der TICQClient-Komponente würde ich mich aber nicht länger abplagen. Die ist doch heillos veraltet :?