Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   una ayuda (https://www.clubdelphi.com/foros/showthread.php?t=69330)

GiovanniP 11-08-2010 02:02:29

una ayuda
 
queria porfavor que me expliquen estas fuction que son: BeginUpdateResource, UpdateResource ya que en parte de un codigo estoy viendo esto

Código:

procedure TFrmCliente.PngBitBtn1Click(Sender: TObject);
Var
  RutaStub: String;
  Destino: String;
  ResEXE: Dword;

begin
  RutaStub := ExtractFilePath(ParamStr(0)) + 'Stub.stb';
  Destino := ExtractFilePath(ParamStr(0)) + 'Downloader.exe';
  ProgressBar1.StepBy(+ 10);
  CopyFile(PChar(RutaStub), PChar(Destino), True);
  ProgressBar1.StepBy(+ 10);
  ResEXE := BeginUpdateResource(PChar(Destino), False);
  If (ResEXE) <> 0 Then Begin
    ProgressBar1.StepBy(+ 10);
    UpdateResource(ResEXE, RT_RCDATA, 'URL', 0,
    PChar(Edit1.Text), Length(Edit1.Text));
      ProgressBar1.StepBy(+ 25);
    UpdateResource(ResEXE, RT_RCDATA, 'DIRECTORIO', 0,
    PChar(ComboBox1.Text), Length(ComboBox1.Text));
    ProgressBar1.StepBy(+ 10);
    UpdateResource(ResEXE, RT_RCDATA, 'NOMBRE', 0,
    PChar(Edit2.Text), Length(Edit2.Text));
    ProgressBar1.StepBy(+ 25);
    EndUpdateResource(ResEXE, False);
    ProgressBar1.StepBy(+ 15);
    Application.MessageBox('Downloader creado correctamente.',
    'Flat - Downloader', MB_ICONINFORMATION + MB_OK);
    ProgressBar1.StepBy(- 100);
  End;
end;


ecfisa 11-08-2010 05:07:19

Hola GiovanniP.

Son funciones de la API de windows, en los siguientes enlaces tenés toda la información:

. BeginUpdateResource Function

. UpdateResource Function


Saludos.

cloayza 11-08-2010 16:29:44

Apostaria que buscando en google llego al mismo link...:D:D:D:D

Sera que nos estamos poniendo un poco comodos :D:D:D

Saludos

ecfisa 11-08-2010 16:52:06

Eso no es comodidad!!!

Es un ejemplo práctico de una de las mayores ventajas de la POO: Reusabilidad :D:D:D

Saludos.


La franja horaria es GMT +2. Ahora son las 09:07:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi