problem beim download einer datei

[SirThornberry]

@luckie: Die Fehlermeldung war

Zitat:

(SaveToFile(savedialog1.FileName) undefinierter bezeichner

was ja auch veständlich an der stelle war

@tester008: genau das hat luckie gerade gepostet.

[tester008]

hab luckies code snip genommen

aber jetzt bekomm ich nen sokket fehler und zwar #10054

die verbindung wurde von peer zurückgesetzt

[SirThornberry]

ich vermute mal es liegt daran das du ein Memo nutzt. bei Memo.Text bekommst du mindestens einen Zeilenumbruch mit und der verursacht das eine ungültige url raus kommt. Benutz einfach ein normales TEdit und es sollte funktionieren.

[tester008]

habs jetzt in nen editfeld gemacht
wundert mich aber das es daran lag weil eigendlich
dürfte er dabei ja den zeilenumbruch nicht erkennen
warum ist das so?


daran lags jetzt updatet aber meine gauge nicht

[Matze]

Zitat:

Zitat von tester008

daran lags jetzt updatet aber meine gauge nicht

Und was sollen wir nun ohne Code dazu sagen?

[SirThornberry]

weil memo.. lines eine Stringliste ist. Bei .Text wird intern vermutlich nix anderes gemacht als

Delphi-Quellcode:

var LText: String;
    LCount: Integer;
begin
  LText := '';
  for LCount := 0 to count - 1 d
    LText := LText + strings[0] + #13#10;

was dazu führt das am ende immer noch der Zeilenumbruch dran hängt. Aber mal bissl nachgedacht-was bringt ein memo zur eingabe einer url? Eine url ist immer einzeilig und somit ist dies in konflikt mit der mehrzeiligkeit des memos.

[tester008]

[delphi]begin
Form1.Gauge1.Progress := 0;
Form1.Label1.Caption := 'Der Download wurde gestartet...';
if (UserCancel) then
begin
Result := E_ABORT;
exit;
end;
end;
BINDSTATUS_DOWNLOADINGDATA:
begin
Form1.Gauge1.Progress := MulDiv(ulProgress,100,ulProgressMax);
Form1.Label1.Caption := 'Datei wird heruntergeladen...';
if (UserCancel) then
begin
Result := E_ABORT; exit;
end;
end;[delphi]


was war mein alter source

da hatte ich noch urlmon benutzt


sorry aber ich weiß nicht wie ich das bei indy machen soll

[SirThornberry]

neue Frage = Neuer Thread (bzw. fehlt hier überhaupt noch was du wissen willst) und bitte die Delphi-Tags satzen (im Beitragseditor auf den Button "Delphi-Code" klicken, dann dein source schreiben und dann wieder auf "Delphi-Code" klicken)

[tester008]

@SirThornberry stimmt aber ich hatte mir gedacht das delphi
da keinen unterschied erkennt das das so ist darauf bin ich
nicht gekommen

ich wollte es einfach in nen memo haben damit man die ganze url
beim download besser sehen kann aber egal so gehts auch

[SirThornberry]

Wenn du unbedingt ein memo willst dann benutze einfaach noch StringReplace umd die Zeilenumbrüche zu ersetzen.

Delphi-Quellcode:

[...]
idHTTP1.Get(StringReplace(Memo1.Text, #13#10, '', [rfReplaceAll]), lStream);
[...]

und benutz mal die Hilfe bzw. die Suchfunktion des Forums, denn dein neues problem wurde bereits gelöst.