Mensajes

Funcion para decodificar una url del servicio Adf.ly
uso: le pamos la url codificada y nos retorna la original, ojo para usar esta funcion se necesita conexion  a internet.

Código (delphi) [Seleccionar] Expandir

uses
  SysUtils,
  IdHTTP,
  IdCoderMIME;

function DecodeAdFly(const url:string):string;
var
http:TIdHTTP;
content,data,urlFinal,part1,part2:string;
pos1,pos2,i,npos:integer;
const
STRINGKEY='ysmm = ';
begin
  urlFinal:='';
  i:=1;
  http:=TIdHTTP.Create(nil);
  try
    content:=http.Get(url);//obtenemos el codigo html
    pos1:=pos(STRINGKEY,content);//encontramos el ysmm =
    pos2:=1;
    npos:=pos1;
    while(content[npos]<>';')do//recorremos el content hasta encontrar el ';'
    begin
      inc(npos);
      inc(pos2);//el pos2 nos dira cuantos caracteres tiene el ysmm
    end;
    //data alamcenrar la cadena de ysmm
    data:=copy(content,pos1+length(STRINGKEY)+1,pos2-length(STRINGKEY)-3);
    while(i<=length(data)) do //filtramos la cadena llamada data
    begin
      part1:=part1+data[i];
      part2:=data[i+1]+part2;
      i:=i+2;
    end;
    urlFinal:=TIdDecoderMIME.DecodeString(part1+part2);//los desciframos con base64
    Result:=copy(urlFinal,3,length(urlFinal)-2);//retornamos la url original
  finally
    http.Free; //liberamos el objeto creado arriba
  end;
end;

var
url:string;
begin
  url:=DecodeAdFly('http://adf.ly/dLgCS');
  writeln(url);
  readln;
end.

No entiendo bien tu pregunta pero has intentado utilizar teamviewer https://www.teamviewer.com/es/

Funcion para cambiar el fondo al escritorio utilizando la api de windows

Código (delphi) [Seleccionar] Expandir

uses
  SysUtils,
  windows;

function cambiarFondo(const imagen:string):boolean;
begin
   Result:=SystemParametersInfo(20,0,@imagen[1],0);
end;

var
foto:string;
begin
writeln(cambiarFondo('image.bmp'));
writeln('Imagen cambiada');
readln;
end.


Otra alternativa para cambiar el fondo de un escritorio pero ahora utilizando  la interfaz IActiveDesktop

Código (delphi) [Seleccionar] Expandir

uses
  SysUtils,
  ComObj,ShlObj,ActiveX,windows;
 
function ChangeWallpaper(const Image: widestring): Boolean;
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ADesktop: IActiveDesktop;
begin
  CoInitialize(nil);
  ADesktop     := CreateComObject(CLSID_ActiveDesktop)as IActiveDesktop;
  try
    ADesktop.SetWallpaper(pwidechar(Image), 0);
    ADesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
    CoUninitialize;
  end;
  Result:=True;
end;

begin
   ChangeWallpaper('C:\image.bmp');
   Writeln('Imagen cambiada');
   Readln;
end.



son varios los errores lo primero se asigna los valores asi

cociente=uno/dos;
sobrante=uno%dos;

en la variable cociente como estas utilizando el operador de / lo mejor seria que utilizaras float y no int

Saludos..

Si sabes programar en java seria lo ideal

Prueba esto

Código (cpp) [Seleccionar] Expandir

#include<iostream>
#include<cstring>
using namespace std;

int main(int argc, char* argv[])
{
string palabra="soy la palabra";

if (strcmp(argv[1],palabra.c_str())==0){
cout<<"Son iguales "<<endl;
}
else{
   cout<<"Son diferentes"<<endl;
}

cin.get();
return 0;
}
//---------------------------------------------------------------------------


Igual que android estudio, pero dada la importancia de Delphi si es considerado un lenguaje ya que el nombre correcto "objeto pascal" nunca ha sido conocido.

La gran diferiencia es que muchos proyectos android-c# se hacen con xamarin el cual te da la ventaja de que con la misma base de codigo puedes crear aplicaciones tanto para cualquier plataforma

Personalmente el mejor IDE de desarrollo multiplataforma y multidispositivo es Delphi xe7

Te permite generar codigo tanto para windows,mac, android,iOS
personalmente siempre se me ha hecho muy cansado el desarrollo en android utilizando java por eso yo lo hago en Delphi.

Funcion para obtener la ultima version del framework .NET

Código (delphi) [Seleccionar] Expandir

uses

  Classes,SysUtils,Registry
  { you can add units after this };

function getNetVersion:string;
var
  values:TStringList;
begin
  with TRegistry.Create do
  try
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey('\SOFTWARE\Microsoft\NET Framework Setup\NDP',false) then
    begin
      values:=TStringList.Create;
      try
        GetKeyNames(values);
        if values.Count>0 then result:=values[values.Count-1]
        else result:='Unknown';
      finally
        values.Free;
      end;
      CloseKey();
    end
  finally
    free;
  end;
end;

var
  cadena:String;
begin
   cadena:=getNetVersion;
   writeln(cadena);
   readln;
end.

Overload es la sobrecarga de metodos, es que en una misma clase puedas tener dos metodos que se llamen de la misma forma pero que se diferiencen a traves de la cantidad de parametros

Override es sobrescritura de metodos es utilizado cuando hereados los metodos de una clase y un metodo lo redefines en la clase hija esto tiene mas importancia cuando lo combinas con el polimorfismo

te dejo algunos ejemplos:
http://www.programcreek.com/2009/02/overriding-and-overloading-in-java-with-examples/

http://www.edu4java.com/es/progbasica/progbasica17.html