Blockade bei Upload

[Felixcate07]

Hallo,

ich übergebe mit Delphi eine Datei an eine php Seite. Da der Upload etwas dauert ist das Programm blockiert. Kann man da irgendwas machen? Irgendeine Anzeige ("IN ARBEIT") oder so was? Der Anwender denkt das Programm ist abgestürzt!

Danke

Gruß Tobias

[Matze]

Hi,

um welche Komponenten handelt es sich (falls du welche nutzen solltest)? Wie sieht der Code für den Upload aus?
Ohne diese Infos kann man dir wahrscheinlich nicht viel helfen und es wird eine einzige Herumraterei.


Ich tippe dennoch mal, was eine Lösung sein könne: Die Auslagerung in einen Thread.

[Felixcate07]

Hallo,

zum hochladen verwende ich das:

http://www.delphipraxis.net/internal...ct.php?t=98281

Gruß Tobias

[C.Schoch]

Hi,
Da es keine Schleife ist in die du Application.Processmessages einbauen kannst musst du dich wohl wie schon von Matze gesagt in das Thema Threads einarbeiten.

[Felixcate07]

aha und könnt Ihr mir da mal ein Beispiel geben oder so wie ich das Anfangen kann?

Danke

[Felixcate07]

Hallo,

warum kann ich auf Edit1.text nicht zugreifen?? Auch auf Labels oder ähnliches hab ich keinen Zugriff.

Danke

Gruß Tobias



function UnserThread(zahl: Pointer): LongInt; stdcall;
begin
Sleep(2000);
Edit1.text := 'fertig';
Result:=0;
end;


procedure TForm1.Button1Click(Sender: TObject);

var
ThreadID: DWORD; //Thread-ID
ThreadHandle: THandle; //Rückgabewert von CreateThread

begin

Label1.Caption:='Unser Thread-Testprogramm ist gestartet.';
Label2.Caption :='Nun erzeugen wir den neuen Thread!';
Sleep(2000);
ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@UnserThread),
nil, 0, ThreadID);

//wenn der Thread erfolgreich gestartet wurde (ThreadHandle<>0), können
//wir ThreadHandle wieder freigeben:
if ThreadHandle<>0 then CloseHandle(ThreadHandle);

label1.Caption :=('Das Hauptprogramm ist nun am Ende angekommen.');


end;

[himitsu]

die funktion UnserThread ist nicht in der Klasse definiert, also ist dort Edit1 volkommen unbekannt :zwinker:

Code:

begin
Sleep(2000);
[b][color=#ff0000]Form1.[/color][/b]Edit1.text := 'fertig';
Result:=0;

[add]
die letzten beiden Beiträge können eigentlich weg (falls ein Mod dat so will)
>> Antworten auch unter Thread Frage