Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-08-2014
Avatar de danielmj
danielmj danielmj is offline
Miembro
 
Registrado: jun 2011
Posts: 383
Poder: 13
danielmj Va por buen camino
Error al llamar a procedimiento

Hola de nuevo después de mucho tiempo, llevo unos días recuperando un proyecto que dejé hace tiempo sin terminar al estilo hacha y me encuentro que cuando ejecuto con F9, todo va bien hasta que hago la llamada a un procedimiento, este:

Código Delphi [-]
Procedure TPrincipal.Button1Click(Sender: TObject);
{begin
  TrocearArchivo(labEdit1.Text,2048);
  button2.Enabled:= false;
end;}
var
  Dato: TData;
  pDato: ^TData;

begin
  New(pDato);
  pDato := @Dato;
  Dato.Path := Principal.LabEdit1.text;
  Dato.Size := 2048;
  Thread.MsgWaitFor(ThreadExample, pDato);
end;

Y el procedimiento "ThreadExample" sería este:

Código Delphi [-]
procedure TPrincipal.ThreadExample(Data: pointer);
var
  Path: string;
  Size: integer;
begin
  Path := Principal.LabEdit1.Text; //(data^).Path;
  Size := 2048;
  TrocearArchivo(Path, Size);
end;

Que a su vez llama a este otro:

Código Delphi [-]
procedure TrocearArchivo(sArchivo: TFileName; iLongitudTrozo: Long64 );
var
  i: Word;
  FS, Stream: TFileStream;
  nombreFile: String;

  label iniciar;

begin
  try
    principal.memo1.Lines.Add(CalcHash(principal.labedit1.Text,haSHA1));
    principal.Memo1.Lines.SaveToFile(principal.labEdit2.Text+ '\'+ extractFileName(principal.LabEdit1.Text+'.crc'));
  except
    on EFCreateError do
      begin
        showMessage ('Unidad seleccionada no válida. Selecciona una unidad' +
        chr(13)+'de disco duro local que sea accesible.');
        principal.Memo1.Text:= '';
        exit;
      end;
  end;

    if principal.opc1.Checked then
    begin
      iLongitudTrozo:= 1048576;        //1MB  --> los tamaños se muestran en Mbytes

      FS := TFileStream.Create(sArchivo, fmOpenRead or fmShareDenyWrite);
    try
      principal.Memo2.Lines.Add((Chr(13))+(Chr(10)));
      principal.Memo2.Lines.Add('LISTADO DE ARCHIVOS [ORIGINAL TROCEADO]');
      principal.Memo2.Lines.Add((Chr(13))+(Chr(10))+'·································');

      for i := 1 to Trunc( FS.Size / iLongitudTrozo ) + 1 do
      begin
        principal.prBar.Max:= FS.Size div iLongitudTrozo;
        principal.prBar.Position:= i;
        principal.prBar.Refresh;

        nombreFile:= extractFileName(sArchivo);
        try
          sArchivoPartido := ChangeFileExt(principal.labEdit2.Text +'\'+
          nombreFile, '.' + FormatFloat('000', i ) );
          Stream := TFileStream.Create(sArchivoPartido, fmCreate or fmShareExclusive);
        except
        on EFileStreamError do
        ShowMessage ('Unidad seleccionada no valida. Selecciona una unidad de disco duro local.');

        end;
          principal.labEdit2.SelStart:= 0;
          principal.labEdit2.SelLength:= length(principal.labEdit2.Text);
        if (principal.labEdit2.SelLength) = 3 then
            principal.Memo2.Lines.Append(principal.labEdit2.Text + extractFileName(sArchivoPartido))
        else
          principal.Memo2.Lines.Append(principal.labEdit2.Text+'\'+extractFileName(sArchivoPartido));

      try
        if fs.Size - fs.Position < iLongitudTrozo then
          iLongitudTrozo := FS.Size - FS.Position;
          Stream.CopyFrom( FS, iLongitudTrozo );
      finally
        Stream.Free;
      end;
  end;
  finally
  FS.Free;
  principal.Button1.Enabled:= false;

  principal.Memo2.Lines.Add((Chr(13))+ (chr(10)));
  principal.Memo2.Lines.Add('Archivo original: '+principal.LabEdit1.Text);
  principal.memo2.Lines.Add('Ruta destino: '+principal.labEdit2.Text);
  principal.Memo2.Lines.Add('Código HASH: '+principal.Memo1.Text);

  end;
    if principal.prBar.Max = principal.prBar.Position then
    principal.Timer1.Enabled:= true;
    Principal.lblTerminado.Visible:= true;
    principal.Button2.Enabled:= true;
    principal.guardarM.Enabled:= true;
    principal.copiarM.Enabled:= true;
    principal.Volver1.Enabled:= true;
end;

El resto del código de este procedimiento es igual con la única diferencia de ir aumentando los trozos en los que se cortará el archivo original (2Mb, 5Mb, 10.... etc)

Adjunto captura del error.


¿Alguna idea o sugerencia?
Saludos y gracias.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.
Responder Con Cita
  #2  
Antiguo 14-08-2014
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
No he revisado a fondo, pero desde el principio:

Código Delphi [-]
begin
  New(pDato);
  pDato := @Dato;
  Dato.Path := Principal.LabEdit1.text;
  Dato.Size := 2048;
  Thread.MsgWaitFor(ThreadExample, pDato);
end;

algo parece ir mal. Tú asignas memoria a pDato con la llamada a New, pero luego redireccionas pDato a la variable Dato que no ha sido inicializada y usas esta variable como si nada. Es lógico que te aparezca un "Access Violation".

// Saludos
Responder Con Cita
  #3  
Antiguo 16-08-2014
Avatar de danielmj
danielmj danielmj is offline
Miembro
 
Registrado: jun 2011
Posts: 383
Poder: 13
danielmj Va por buen camino
Hola roman, perdona por no contestar antes, tienes razón, no está inicializada la variable, el problema es que hace meses que deje este mini proyecto aparcado y ahora que lo retomo pues salen fallos y no sé muy bien por donde tirar, también es verdad que debí dejar anotaciones para cuando continuase. De todos modos, yo recuerdo que antes de dejarlo lo podía usar, cortaba y unia archivos correctamente y no me daba errores, así que no me explico cmo ahora si falla, imagino que algo tocaria antes de "abandonarlo" y se jodio todo.
En fin, voy a revisarlo todo y ya te comento.

Saludos.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
llamar procedimiento dentro de otro procedimiento novato_erick SQL 23 28-10-2012 00:33:02
Ayuda, como llamar a un procedimiento desde otro procedimiento? Ariatna Varios 1 01-02-2005 05:05:35
Error al llamar al procedimiento CharToOem Bagy API de Windows 0 13-09-2004 23:46:02
ayuda al llamar un procedimiento... ronimaxh Firebird e Interbase 8 27-04-2004 02:53:33
llamar procedimiento cmgenny Varios 2 12-08-2003 01:28:13


La franja horaria es GMT +2. Ahora son las 12:26:33.


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