Assistenza remota simil Team Viewer

[nomorelogic]

secondo me il problema non è synapse

qualcosa del genere potrebbe andare
è una classe che splitta un maxi-pacchetto in tanti pacchetti di una dimensione minore
poi l'invio dovrebbe inviarli tutti

come la vedete?

Codice: [Seleziona]

const
  MAXSIZEPACKET = 4096;


type 
  TPacketData = array [1..MAXSIZEPACKET] of char;
  
  TSplittedPacket = record
     ID: Int64;           // identifica un unico pacchetto
     PacketNo,            // numero dello split corrente
       TotPackets: Int64; // totale split
     Size: Int64;         // dimensioni dati in Data (per ultimo pacchetto)
     Data: TPacketData;
  end;

  TSplittedPackets = array of TSplittedPacket;


class TSplitedPacket ....
   PacketList: TSplittedPacket;
private
   procedure DoSplitPacket(AStream: TStream);
   
public
   procedure LoadPacket(AStream: TStream);

end;


procedure TSplitedPacket.LoadPacket(AStream: TStream);
var need: Int64; 
begin 
   SetLength(PacketList, (Astream.Size div MAXSIZEPACKET) + 1);
   DoSplitPacket(AStream);
end;


procedure TSplitedPacket.DoSplitPacket(AStream: TStream);
var scan: Int64;
    SplittedBytes: Int64;
begin
   SplittedBytes:=0;
   for scan := 0 to length(PacketList) - 1 do begin
       PacketList.ID = "numero invio";
       PacketList.PacketNo := scan;
       PacketList.TotPackets := length(PacketList);
       PacketList.Data := ...
   end;
end

Edit:
ho corretto  il codice che presentava qualche errore


Edit2:
l'invio dovrebbe inviare una struttura TSplittedPacket (serializzata in qualche modo)
così da poter ricostruire il pacchetto originale usando PacketNo e TotPackets

[xinyiman]

Questa mattina mi sono svegliato alle 5 e la testa girava su quel problema. Alla fine mi sono alzato dopo pochi minuti e l'ho risolto con synapse. Questa sera quando torno a casa vi aggiorno, questa mattina non avevo tempo, dovevo andare al lavoro quando ho finito. Questa sera faccio dei test e vi condivido il risultato

[Stilgar]

Ciao.


Avrei una proposta scandalosa.


Al posto di avere un thread per comando da inviare tra le macchine.


Usare il Command Pattern?


Allego un possibile esempio di quello che intendo.
(Compila nn so se funziona).


Stilgar

[xinyiman]

Ciao a tutti, ecco un semplice esempio che manda i jpg scomposti e poi li ricompone. Funziona se non cifro la connessione.
Per fare dei test basta che aprite due istanze del programma.
Su una premete il pulsante "Start server jpg" (che dura solo 4/5 secondi) e poi velocemente sull'altra istanza premete "Send Jpg".
Se l'unico campo Edit (all'avvio è autopopolato con il testo "mypwd") è vuoto funziona, altrimenti no.

Non capisco cosa non funziona (in questo momento ho gli occhi che si chiudono che sono cotto). Inoltre il pulsante button6 simula la crittografia senza mandarlo sulla rete (e funziona) quindi non capisco cosa sbaglio.

Testato sia su mac che su ubuntu.

[xinyiman]

Ciao.


Avrei una proposta scandalosa.


Al posto di avere un thread per comando da inviare tra le macchine.


Usare il Command Pattern?


Allego un possibile esempio di quello che intendo.
(Compila nn so se funziona).


Stilgar

Giuro che domani sera lo guardo, questa sera sono una ameba.

[xinyiman]

Ho capito il problema. La crittografia blowfish mi cambia la dimensione dell'output, mentre per me è importante che rimanga uguale. Userò un AES CRT a 128 bit. Vi tengo aggiornati sugli sviluppi

[xinyiman]

Ecco a voi la nuova versione. Migliorata e più veloce (ora le immagini non sono mandate in base64). Stilgar, ho guardato il tuo esempio ma non ho capito come questo mi permetterebbe di bypassare l'uso dei thread.

www.lazaruspascal.it/download_personali/korg_remote_desktop.zip

Ora c'è una dipendeza in più: dcpcrypt

Ditemi cosa ne pensate. Ci sono anche gli eseguibili per

Ubuntu
Win32
Win64
Mac OS X (cocoa)

Ho già imbastito anche la trasmissione del mouse remoto (ma al momento non influisce, scrive solo le coordinate nella caption della form (che invia il proprio desktop).
Come già detto ora non usa più la crittografia blowfish, ma aes a 128 bit. Se la password è vuota viene mandato il dato in chiaro.

All'avvio ho aggiunto la possibilità di far vedere nella memo iniziale l'indirizzo IP per la rete locale e quello per l'accesso ad internet. (questo per fare test su macchine diverse).

Ho anche tolto la possibilità di dimensionare il pacchetto con la barra. Ora c'è una checkbox (jumbo packet) che se è flaggata manda pacchetti di 65507 byte, altrimenti li manda di 8190.

Fatemi sapere il vostro parere.

[Stilgar]

Stilgar, ho guardato il tuo esempio ma non ho capito come questo mi permetterebbe di bypassare l'uso dei thread.

I thread possono essere in numero limitato se usi il command pattern.
Adesso, se ho capito il la struttura del progetto, hai un thread che comunica con il peer tra le macchine.
Uno in lettura e uno in scrittura per ogni comando.
Potresti arrivare ad avere 1 solo thread per la gestione della comunicazione, al posto di avere il thread per il ping e per la gestione delle immagini.
Stilgar

[xinyiman]

 Allo stato attuale uso 4 thread x inviare e ricevere le immagini, perché suddivido il monitor in 4 parti. Più un thread per tutte le altre comunicazioni.

[xinyiman]

Ciao a tutti. Ho fatto delle aggiunte ed ho aggiornato il programma.

Link: www.lazaruspascal.it/download_personali/korg_remote_desktop.zip

Ora sono queste le dipendenze

LCL
laz_synapse
dcpcrypt
LazMouseAndKeyInput (se usate cocoa, usate la versione che trovate a questo link: www.lazaruspascal.it/download_personali/mouseandkeyinput_cocoa_support.zip)

Ho anche aperto un 3d sul forum internazionale, in modo da trovare qualcuno che vuole contribuire al progetto. Questo il link: https://forum.lazarus.freepascal.org/index.php?topic=52110.msg383428#msg383428

[nomorelogic]

penso che dovresti mettere su un repository da qualche parte

[xinyiman]

L'obbiettivo è quello, ma prima voglio risolvere il fatto che in lan lavora bene e in wan non funziona.

[xinyiman]

Ho capito cosa sbaglio. Non ho implementato correttamente UDP Hole Punching.
Manca ancora un software "controller" raggiungibile sempre. Nel week end lo implemento se riesco e poi vi aggiorno. Intanto se qualcuno volesse darmi dei feedback sul lavoro in lan ne sarei davvero felice.

[nomorelogic]

mi puoi elencare le direttive che devo mettere per linux per favore?

Edit:
alla fine le ho trovate le metto quì per documentazione

-dUseCThreads
-dNoWriteDebug
-dGetScreenInMainThread
-dMyVersion
-dFilterFromIpPort

Edit2:
ora in lan è molto più veloce della vecchia versione
aspettiamo la versione wan

[xinyiman]

Eccomi qui, volevo solo avvisarvi che non ho aggiornato il software come avevo detto. Ho fatto delle modifiche, ma non sono riuscito ad implementare l'UDP Hole Punching.
Ho creato il server controller (che funziona correttamente) perchè permette ai client colleggati di ottenere gli ip e le porte dei client remoti, ma quando provo ad instaurare la connessione non funziona. Inizio ad essere disperato perchè vi ho passato sopra tutto il week end senza cavarne un ragno dal buco.