webbrowserfunktion: picturefile/save

Jeg går ud fra at grunden til at du bruger TWebBrowser er at du også skal kunne vise billeder der ligger på nettet, eller hva?

nej slet ikke nødv - kun lok filer er ok

Hvorfor bruger du så TWebBrowser, er det ikke lidt overkill eller er der noget jeg ikke tænker på?

Picturestreams og andre mystiske ting er simpelthen for kompliceret til mit lille hobbyprogram til familiebilleder.

Kan en TImage ikke bruges, den er da noget lettere at rode med end TWebBrowser, og er er både load og save funktioner.

Har skam set stoneys flotteprogram med DB og det hele, men vil gerne selv kunne overskue programmeringsindholdet en lille smule :=)

Men det anede mig at det ikke var så ligetil - det er ok så.

Jow, men hvorfor så ikke bruge en TImage?

Hvis du kan konvertere programstumpen til TImage uden gevaldige gebrækkeligheder vil jeg da være dybt taknemmelig, men har set på andre programmer gennem tiden og det forekommer temmelig indviklet ? - eller ?.

Den TImage jeg tænker på er den komponent der findes under Additional fanen i delphi.

Jeg kender godt TImage og ved at load og save er simpelt her, men ellers er jeg lidt blank.

Stoneys eks. gør mig bare forvirret:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  jpg:TJpegImage;
  memStream:TMemoryStream;
  blob : Tblobfield;
begin
image1.picture.Assign(nil);

  // her checkes for JPG
    if lowercase(adoquery1.FieldByName('ext').AsString) = '.jpg' then
                  begin

                    memStream:=TMemoryStream.Create;
                    try
                      jpg:=TJpegImage.Create;
                          try
                          if not (adoquery1.FieldbyName('billede') as TBlobfield).IsNull
                            then begin
                                (adoquery1.FieldbyName('billede') as
                                  TBlobfield).SaveToStream(memStream);
                                  memStream.Seek(0,0);
                                  jpg.LoadFromStream(memStream);
                                  Image1.Picture.Assign(jpg);
                                  end;
                                    finally
                                        jpg.free;
                                        end;
                                        finally
                                        memStream.free;
                                          end;
end;

    // her checkes for bmp
  if (lowercase(adoquery1.FieldByName('ext').AsString) = '.bmp')  then

    try

      Blob := ADOQuery1.FieldByName('billede') as TBlobField;
      Image1.Picture.Bitmap.Assign(Blob);

      finally

      end;

Du behøver vel ikke bruge TMemoryStream.

Kan man hente det ind alene v.hj.a. sti til adresse ?

fidusen ved at live listbox-adressehenvisning er jo gevaldig.Det er temmelig mange familiebilleder jeg har og det ville ta for lang tid at hente dem ind enkeltvis - som jeg godt er klar over man kan gøre i en DB.

Jeg er måske ikke helt klar over hvad du mener men hvis du skal have et billede ind i en TImage kan du f.eks. skrive:

Image1.Picture.LoadFromFile('C:\Mine billeder\Huset.jpg');

husk at tilføje jpeg til uses hvis du skal bruge jpg billeder.

Eller som i din kode:

edit1.text :='';
edit1.text :='C:\picture2\';
edit1.text := edit1.text+(listbox1.items[listbox1.itemindex]);
Image1.Picture.LoadFromFile(Edit1.Text);

Tusind tak.
Det var da brugbart.Skriv et svar.

k