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