Genau das habe ich schon andersrum gemacht.
Ich hatte alles in einer normalen Form (nicht in
ActiveX Form) erstellt und es geht nun um den Thread. Ohne diesen funktioniert anscheinend nicht die gleichzeitige Verarbeitung von Bilderanzeige im Image1 und dem Upload.
Um den Code zu komplettieren. Also diese Function war komplett. Hier der Quelltext wie ich sie aufrufen will:
Delphi-Quellcode:
procedure TActiveFormX.Image2Click(Sender: TObject);
var
ThreadID: Cardinal;
ThreadHandle: HWND;
begin
ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@StarteThread), nil, 0, ThreadID);
if ThreadHandle <> 0 then CloseHandle(ThreadHandle);
end;
Thomas