How do you insert an HTML image

Charlie

I have wptools 6 and it is loading html pages and images very nicely (after adding graphex and synapse libraries). My question is how can I insert picture where the source is a web image (e.g.,http://www.abccompany.com/images/logo.jpg)? I've searched the groups and the manuals and can't find what I am looking for. Basically, I want the user to be able to enter an image URI (e.g., http://www.abccompany.com/images/logo.jpg) and have that insert the appropriate image code and display the image inside the wprichtext control. Something that results in rtf code along the lines of:

{\*\wppicsource{http://www.abccompany.com/images/logo.jpg}}
{\field{\*\fldinst{INCLUDEPICTURE "http://www.abccompany.com/images/logo.jpg" MERGEFORMAT \\d \\w11250 \\h1575}

Help is appreciated (I have tried the inputhyperlink code below and similar inputstring code but it does not work):

var
imageurl : string;
begin
imageurl := '<a href="#"><img src="http://www.euclidtechnology.com/images/innerLogo.gif" </a>';
imageurl := InputBox('Enter Image URL','URL',imageurl);
mmoudcpro.InputHyperlink(imageurl, 'link');

support

I did not expect this demand, so it is a bit more complicated:

Code

procedure TWPWebBrowser.Button1Click(Sender: TObject);
var url : String;
    objclass: TWPObjectClass;
    obj : TWPOBject;
    tobj : TWPTextObj;
begin
 url := 'http://www.euclidtechnology.com/images/innerLogo.gif';


 objclass := WPRichText1.RTFData.RTFProps.Enviroment.GetWPObjectForExtension(WPRichText1.RTFData, ExtractFileExt(url));
 if objclass <> nil then
 begin
          obj := objclass.Create(Self);
          obj.FileName := url;
          obj.FileExtension := ExtractFileExt(url);
          obj.LoadHTTPFromThread(obj, WPRichText1.RTFData, URL, true);


          tobj := WPRichText1.TextObjects.Insert(obj);
          tobj.Mode := tobj.Mode + [wpobjImageNotLoaded];
  end;
end;

Alles anzeigen

Next release will this make it as easy as
WPRichText1.TextObjects.InsertFromHTTP(url, true);

Regards,

Julian

Charlie

Thanks Julian. I was just about to post the following code that I just now got to work. Can you tell me if one solution is better than the other? Note that mmoudcpro is the name of the richtext control

Code

procedure TfrmWPSDI.mniInsertRemoteImageClick(Sender: TObject);
var
imageurl : string;
obj: TWPOImage; 
begin
try
     imageurl := 'http://www.euclidtechnology.com/images/innerLogo.gif';
     imageurl := InputBox('Enter Image URL','URL',imageurl);
     obj := TWPOImage.Create(mmoudcpro.Memo.RTFData); // !
      if obj.LoadHTTPFromThread(nil, mmoudcpro.RTFData, mmoudcpro.RTFData.HTTPPrepareURL(imageurl), false) then
      begin
        mmoudcpro.InputObject(obj);
      end;
     application.processmessages;
finally
      //obj.free; --cannot free object, causes access violation
end;
mmoudcpro.repaint;
end;

Alles anzeigen

support

Hello,

my approach is more universal, but TWPOImage is completely ok since it handles all image formats.

The last parameter in LoadHTTPFromThread is "threaded". If it is true, the image will be loaded in a seperate thread. You need to use 'wpobjImageNotLoaded' in modes if you do this. In Your case, you dont, so it is fine.

InputObject is the same as TextObjects.Insert, so it is fine.

It returns the TWPTextObj instance, if this value is nil, please free the TWPObject instance, otherwise dont free it.

Kind Regards,
Julöian

How do you insert an HTML image

Ähnliche Themen

PNG Scrolls

WPTools 8 is available now

Link to an http image in Editor

WPTOOLS Changelog