JPG aus dem Cache importieren ?

[himitsu]

Bist du auch sicher mit dem ".jpg" ?

Es kann ja auch ".jpeg" sein.

Manchmel haben die Bilddateien auch keine Endung ("")

...

[delphi_libero]

jo, moment. also des .jpg iss korrekt, ich glaube ich muss die datei vorher ausm cache innen anderes verzeichnis kopieren, weil die sonst net angezeigt werden kann? im explorer jedenfalls auchnet.
etwas code
So funktioniert es!(nur anzeige geht net, auch net mit explorer muss man bild erst kopieren):
Image1.Picture.LoadFromFile(Edit1.Text + '\' + Edit2.Text + '.jpg'); so krieg ich den namen des bilds:
Edit2.text := WebBrowser.OleObject.Document.Forms.item(0).elements.item('bildname').Value; und so den pfad:

Delphi-Quellcode:

var
   pidl: PItemIDList;
   cache:array[0..max_path] of char;

begin
     SHGetSpecialFolderLocation(Handle, CSIDL_INTERNET_CACHE, pidl);
     SHGetPathFromIDList(pidl, cache);
     Edit1.Text := cache;

ok, hat jemand ne ahnung wie ich das bild jezz zum beispiel aus dem internetcache in den ordner der anwendung kopiere und die datei dabei umbenenne?
mfg und danke nochmal, die hilfe war scho klasse

[fkerber]

Hi!

In diesem Zusammenhang kann ich dir die Forensuche doch sehr empfehlen:

datei kopieren

da findest du fast alles!

Ciao fkerber

[delphi_libero]

hi. irgendwie find ich da nichts passendes woraus ich schlau werde ;(
hat jemand vieleicht nen kleinen code:
ich möchte ja nur das jpg in den ordner meines proggys schieben. ungefähr in der art:
Bild1 -> copy zu -> ordner (von anwensdung) -> rename zu Bild2
geht des ?
mfg

[fkerber]

Hi!

Also mal aus den Suchergebnissen!

http://www.delphipraxis.net/internal...datei+kopieren
http://www.delphipraxis.net/internal...datei+kopieren

Hoffe, das hilft erstmal!

Ciao fkerber

[delphi_libero]

hi. danke für die links.
beim kopieren hab ich jezz folgendes porob: er machts net. wieso hab ich keene ahnung. hat des vieleicht was mit dem cache ordner zu tun? aber das iss kopieren ja aktiviert...hmm...

Ums zu kopieren benutz ich des:
CopyFile(PChar(Edit1.Text + Edit2.Text + '.jpg'), PChar(extractfilepath(application.exename)),false); Ums anzuzeigen des: (beim anzeigen kommt allerdings immer der fehler 'Unbekannte Bilddateierweiterung (.jpg)' dabei unterstütz er doch jpg?
Image1.Picture.LoadFromFile(extractfilepath(application.exename) + Edit2.Text + '[1]' + '.jpg'); hat jemand ne ahnung dazu, warum er des bild net kopiert und dann auch noch net mal das jpg format kennen will?
mfg

[fkerber]

Hi!

Wegen dem JPEG erkennen, hast du die entsprechende Unit eingebunden? also entweder jpg, oder jpeg! bin leider grad nicht sicher. Wegen dem Kopieren guck ich nachher mal!

Ciao fkerber

[ADD]
Wegen dem Kopieren schau mal hier:
http://www.delphipraxis.net/internal...hfileoperation
Vielleicht geht es damit! Ist auch besser als nur CopyFile, weil Sicherheitseinstellungen (NT ff.) übernommen werden!

Ciao fkerber

[/ADD]

[delphi_libero]

hiho, leider funkt des aunet ;(

also die uses hab ich drin

Delphi-Quellcode:

uses
jpeg,shellapi

var hab ich auch

Code:

var
fos: TSHFileOpStruct;

und da kommt auch keine meldung

Code:

     Edit2.text := WebBrowser.OleObject.Document.Forms.item(0).elements.item('BILDNAME').Value;

     ZeroMemory(@fos, SizeOf(fos));
     with fos do begin
     wFunc := FO_COPY;
     pFrom := PChar(Edit1.Text + Edit2.Text + '.jpg' + #0);
     pTo := PChar(extractfilepath(application.exename + '\' 'hallo.jpg') + #0);

     Image1.Picture.LoadFromFile(extractfilepath(application.exename + '\' + 'hallo.jpg') + Edit2.Text + '[1].jpg');

nur wenn ich die exe dann ausführ, kommt die meldung das er des bild net finden kann, und des stimmt, weil ers nochnetmal kopiert hat ;(

weis jemand weiter?
mfg

[Siehtix]

Code:

pTo := PChar(extractfilepath(application.exename + '\' 'hallo.jpg') + #0);

da steht wohl die klammer falsch - statt nach 'hallo.jpg' gehört die meiner meinung nach hinter application.exename

und was soll #0 bewirken?

warum wird pTo berhaupt gesetzt? wird doch gar nicht benutzt?!

Code:

Image1.Picture.LoadFromFile(extractfilepath(application.exename + '\' + 'hallo.jpg') + Edit2.Text + '[1].jpg');

da is nur der selbe fehler mit der klammer.