Hallo iebe Delphiler,
ich wollte mal fragen, ob jemand weiß, warum bei:
Form1.Icon1.Picture.Assign(load_picture('http://www.google.com' + Form1.today[4]));
Den Fehler:
Code:
Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
Die Funktion:
Delphi-Quellcode:
function load_picture(
var url :
String) : TGIFImage;
var
Stream : TMemoryStream;
GIF : TGIFImage;
begin
if url <> '
'
then
begin
Stream := TMemoryStream.Create;
Form1.IdHTTP1.Get(
url, Stream);
Stream.Position := 0;
GIF := TGIFImage.Create;
GIF.LoadFromStream(stream);
Result := GIF;
GIF.Free;
Stream.Free;
end
else
begin
Exit;
end;
end;
und wie ich den Fehler behebe?