Webcam Bild (JPG) per FTP-Uploaden

[internetnavigator]

Hallo ,
also der Fehler gibt nicht an in welcher Zeile er passiert (bzw siehe unten im Code).

Hier nochmal der Code des Timers

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

var

j: tjpegimage;
Size: DWORD;
Result : String;


begin
   
   
  SendMessage(camhandle, WM_CAP_EDIT_COPY, 1, 0 );   // make clipboard = bild
  Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); //img1 = Bild


  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);                           //PC name holen
  if GetComputerName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';


j := tjpegimage.create;
j.assign(Image1.Picture.Bitmap);               //save   (Result = Pc name)
j.SaveToFile('cap_' + Result + '_.jpg');



 (*
idFTP1            :=    TidFtp.Create;

idFTP1.Host       :=    '****';
idFTP1.Username   :=    '****';
idFTP1.Password   :=    '****';


idFTP1.Connect;
idFTP1.ChangeDir('/test/');
idFTP1.Put('cap_' + Result + '_.jpg');    //upload (Result = Pc name)
idFTP1.Disconnect;

//idFTP1.Quit;     *)

end;  // wenn ich auf "break" in Delphi klicke, wenn der Fehler kommt, wird diese Zeile makiert. (Violett)

Ich habe noch die "var" Result (=Pc name) reingepackt, da wenn ich es von meinem Pc ausführe, nicht immer die Bilder überschrieben werden; oder ein Konflickt mit dem Pc im Keller auftritt.

So dann erstmal DANKE an alle die mich schon soweit gebracht haben! @inherited: ich hoffe du siehst das Problem

Gruß i-n