[DUG-OFFTOPIC]: Web Camera

[Alistair George]

Possibly what you could do is what I do with my temporary capture files.
Some bits are missed out to keep it brief but the overall syntax should be
clear:

    DecodeDate(now, year, month, day);
    tstring := inttostr(year) + addzero(month) + addzero(day);
    if jpeg1.Checked then tstring := tstring + '.jpg'
    else tstring := tstring + '.bmp';
    savepic1.Filename := StartDir + tstring;
    if (StrPos(pchar(savepic1.Filename), Pchar('.jpg')) <> nil)
      or
      (savepic1.FilterIndex = 3) then
    begin
      savepic1.filename := ChangeFileExt(Savepic1.filename, '.jpg');
      with MyJPEG do
      begin
        CompressionQuality := r.ReadInteger('JPEG');
        Assign(bitmap);
        SaveToFile(Savepic1.filename);
      end;
    end
    else if (StrPos(pchar(savepic1.Filename), Pchar('.gif')) <> nil)
      or
      (savepic1.FilterIndex = 4) then
    begin
      savepic1.filename := ChangeFileExt(Savepic1.filename, '.gif');
      r.ReadInteger('JPEG');
      mygif.ColorReduction := rmQuantizeWindows;
      Mygif.Assign(bitmap);
      mygif.SaveToFile(Savepic1.filename);
    end
    else
    begin
      savepic1.filename := ChangeFileExt(Savepic1.filename, '.bmp');
      bitmap.SaveToFile(SavePic1.FileName);
    end;

---------------------------------------------------------------------------
  New Zealand Delphi Users group - Offtopic List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz