no guarda ficheros bmp en carpeta

[paldave]

Pues me tomé 1 hora y a las conclusiones que llegué fueron:
1) el código que pones no compila
2) esto se debe a que faltan declaraciones como por ejemplo el valor de
DBT_DEVICEARRIVAL (buscando en la documentación encontré que const DBT_DEVICEARRIVAL =32806)
3) faltan además procedimientos que se llaman desde este código (ej.: RellenarFotos) y variables (ej.: cantidades)

Conclusión general: si quieres ayuda pon más cuidado en como planteas tus preguntas. Si puedes poner todo el código de la unidad sería de mucha ayuda. Saludos.

[kapullok_2006]

Hola, pongo aquí el código de Unit1.

<DIV class=frame_codigo_delphi>Código Delphi [-]<DIV class=texto_codigo_delphi id=delphi_div_46ee3635ce090>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons,JPeg;
type
TForm1 = class(TForm)
Image0: TImage;
Memo1: TMemo;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Fotos_ant: TBitBtn;
Fotos_sgtes: TBitBtn;
Cerrar: TButton;
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Fotos_antClick(Sender: TObject);
procedure Fotos_sgtesClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
// procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
// procedure FormDestroy(Sender: TObject);
procedure CerrarClick(Sender: TObject);
private
{ Private declarations }
procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;

public
{ Public declarations }
end;
var
Form1: TForm1;
lista_archivos: TStringList;
i: integer;
cantidades: TStringList;
offset: integer =0;
//AÑadido 11 Sept
lista_aux:TStringList;
{ MyJPEG : TJPEGImage;
MyBMP : TBitmap;
var jpg,bmp:string;
}
implementation
{$R *.dfm}
uses Unit2;
const foto_en_blanco = 'C:\foto_en_blanco.bmp';
const
DBT_DEVICEARRIVAL = $8000; //esto es algo que me pusieron en club delphi
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure RellenarFotos(f: integer); forward;
procedure RellenarFotos(f: integer);
begin
//si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1

if f

[kapullok_2006]

Hola, pongo aquí el código de Unit1.

<DIV class=frame_codigo_delphi><DIV class=texto_codigo_delphi id=delphi_div_46ee3635ce090>
[delphi]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons,JPeg;
type
TForm1 = class(TForm)
Image0: TImage;
Memo1: TMemo;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Fotos_ant: TBitBtn;
Fotos_sgtes: TBitBtn;
Cerrar: TButton;
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Fotos_antClick(Sender: TObject);
procedure Fotos_sgtesClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
// procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
// procedure FormDestroy(Sender: TObject);
procedure CerrarClick(Sender: TObject);
private
{ Private declarations }
procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;

public
{ Public declarations }
end;
var
Form1: TForm1;
lista_archivos: TStringList;
i: integer;
cantidades: TStringList;
offset: integer =0;
//AÑadido 11 Sept
lista_aux:TStringList;
{ MyJPEG : TJPEGImage;
MyBMP : TBitmap;
var jpg,bmp:string;
}
implementation
{$R *.dfm}
uses Unit2;
const foto_en_blanco = 'C:\foto_en_blanco.bmp';
const
DBT_DEVICEARRIVAL = $8000; //esto es algo que me pusieron en club delphi
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure RellenarFotos(f: integer); forward;
procedure RellenarFotos(f: integer);
begin
//si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1

if f

[kapullok_2006]

Aqui está:

<DIV class=frame_codigo_delphi><DIV class=texto_codigo_delphi id=delphi_div_46ee3bb322ba9>
[delphi]
<SPAN class=comment>//..

private

{ Private declarations }

procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;



public

{ Public declarations }

end;

var

Form1: TForm1;

lista_archivos: TStringList;

i: integer;

cantidades: TStringList;

offset: integer =0;

//AÑadido 11 Sept

lista_aux:TStringList;



implementation

{$R *.dfm}

uses Unit2;

const foto_en_blanco = 'C:\foto_en_blanco.bmp';

const

DBT_DEVICEARRIVAL = $8000;

//----------------------------------------------

procedure RellenarFotos(f: integer); forward;

procedure RellenarFotos(f: integer);

begin

//si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1


if f

[kapullok_2006]

lo siento pero,por algun error no puedo ponerte el unit1,la única forma
de que lo veas es decirme tu correo,para que puedas verlo todo.

Saludos.

[kapullok_2006]

Código Delphi [-]
var
  Form1: TForm1;
  lista_archivos: TStringList;
  i: integer;
  cantidades: TStringList;
  offset: integer =0;
implementation
{$R *.dfm}
uses Unit2;
const foto_en_blanco = 'C:\foto_en_blanco.bmp';
const
  DBT_DEVICEARRIVAL = $8000;
 
procedure RellenarFotos(f: integer); forward;
procedure RellenarFotos(f: integer);
begin
     //si posicion es < q lineas-> cargamos en Image1 el directory metido de la posicion de FLB1
       if fthen
       begin
          Form1.Image1.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f]);
       end
       else
       begin
         Form1.Image1.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+1then
       begin
          Form1.Image2.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+1]);
       end
       else
       begin
          Form1.Image2.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+2then
       begin
         Form1.Image3.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+2]);
       end
       else
       begin
         Form1.Image3.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+3then
       begin
         Form1.Image4.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+3]);
       end
       else
       begin
         Form1.Image4.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+4then
       begin
         Form1.Image5.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+4]);
       end
       else
       begin
         Form1.Image5.Picture.LoadFromFile(foto_en_blanco);
       end;
       if f+5then
       begin
          Form1.Image6.Picture.LoadFromFile(Form1.Memo1.Lines.Strings[f+5]);
       end
       else
       begin
         Form1.Image6.Picture.LoadFromFile(foto_en_blanco);
       end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  cantidades:= TStringList.Create; //crea el StringList 'cantidades'
 lista_archivos:=TStringList.Create;
 //añadido 11 Sept
 lista_aux:=TStringList.Create;
end;

[paldave]

Puedes poner el form y su unit en un zip y adjuntarlo al mensaje usando el botón Gestionar Archivos Adjuntos al pie de Responder Mensaje

[kapullok_2006]

por alguna razón,estoy conectado a un servidor proxy.Por lo que es que no
puedo adjuntar el archivo zip.La 1ª vez,q me contestaste,me dijiste que no sabías lo que era RellenarFotos() y variables como cantidades.
EStá puesto,en la anterior respuesta a la última q me has contestado.
Intentaré enviarte el archivo zip,pero eso debe ser en otro sitio diferente
al servidor al q me conecto.Esto puede llevarme 1 semana.

Saludos.
NOTA:retocaré,el código,para q me pueda caber el Unit1,que deseas ver.
Pues haber si así,me muestra el código correctamente.