Bild von URL Laden und anzeigen

[kingjin]

Hi allerseits,

Mein Problem: Meine Webcam stellt ein Bild unter einer URL (http:\\xyz\Bild.jpg) ins Netz. Dieses Bild will ich nun abfragen und anzeigen (später auch speichern).

Wie ihr seht bin ich ziemlich neu hier und hab noch wenig erfahrung mit Lazarus. Es wäre echt nett wenn ihr mir irgendwie helfen könntet,

Kingjin


P.S. OS: Win7 64bit.

[MAC]

such mal nach synapse
binde in uses die unit "httpsend" ein.
Dann kannst du die Funktion

Code: Alles auswählen

HttpGetText(const URL: string; const Response: TStrings): Boolean;

aufrufen.
Gibt den URL ein und bei Response machst du ca folgendes:

Code: Alles auswählen

procedure EineProcedure;
var
 BIldString:TStringList // hier steht Stringlist obwohl eigentlich TStrings vorgeschrieben sind, liegt daran das TStringList abgeleitet von TStrings ist (... = das gleiche ist wie TStrings nur etwas mehr).
begin
HttpGetText('http://www.google.de/images/srpr/logo3w.png',BildString);
BildString.SavetoFile('C:\test1.png');
// das Downloadet die Seite, ob es ein Text ist oder ein Bild sollte dem Programm egal sein (ist am ende sowieso ein haufen nullen und einsen...)
end;

Achso, das speichert ein Bild Lokal.
Du köntest wahrscheinlich auch einfach

Code: Alles auswählen

Image1.LoadfromFile(C:\test1.png'); hinten drannpacken // eventuell warten bis alles gespeichert ist...

.

Gibt aber warscheinlich auch ne ordentlichere Lösung das ganze direkt in in ein Bild anzugeben und nicht erst auf die Festplatte zu schreiben...

Edit: zur gleichen Zeit wurde die frage nochmal gestellt.
Theo hatte eine bessere Idee das direkt in TStream zu laden, damit übergeht man das Speichern. Die verwendung ist ähnlich wie hier beschrieben ...
Siehe http://www.lazarusforum.de/viewtopic.php?f=55&t=4425" onclick="window.open(this.href);return false;

[kingjin]

Ich habs jetz mal mit HTTPGetBinary versucht:

Code: Alles auswählen

while HttpGetBinary('http://www.google.de/images/srpr/logo3w.png', BildStream) do
  begin
 
  end;

Wenn ich das Ausführe krieg ich einen "External: SIGSEGV" Error, was mach ich falsch? Ist das while richtig gesetzt (soll damit warten bis fertig geladen ist).

Und was mach ich dann mit diesem TStream-Objekt? Kann ich es so verwenden?

Code: Alles auswählen

Image1.Picture.LoadFromStream(BildStream);

Ich hoffe ihr könnt mir weiterhelfen!
Und schon mal danke für den ersten denkanstoß

[creed steiger]

Synapse ist exzellent dokumentiert:


http://synapse.ararat.cz/doku.php/publi ... tpdownload" onclick="window.open(this.href);return false;



http://wiki.lazarus.freepascal.org/Deve ... h_Graphics" onclick="window.open(this.href);return false;

[kingjin]

Hey Danke, der Link hat echt geholfen

[Maik81ftl]

Synapse ist exzellent dokumentiert:

NUr beispiele für Lazarsu/fpc sind Mau.