AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Bilderliste in html mit namen erstellen

Ein Thema von Frankfurter_Bub · begonnen am 6. Jan 2007 · letzter Beitrag vom 7. Jan 2007
Antwort Antwort
Frankfurter_Bub

Registriert seit: 20. Jun 2006
23 Beiträge
 
Delphi 7 Enterprise
 
#1

Bilderliste in html mit namen erstellen

  Alt 6. Jan 2007, 17:23
Hi leute,
wegen dem folgenden Delphi-Code verzweifle ich bald -.-
ich bekomme es nicht hin, das neben der Graphik der link dazu dargestellt wird.
wie es ist funktioniert es, also zumindest die Auflistung der Bilder, aber seht selbst.

Delphi-Quellcode:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Comctrls, Commctrl,ShellApi, Mask;

type
  TForm1 = class(TForm)
    Edit3: TEdit;
    edit1: TEdit;
    Generieren: TButton;
    Memo1: TMemo;
    urlEdit1: TEdit;
    Speichern: TButton;

    procedure GenerierenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeichernClick(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='%d.jpg'; edit3.Text:='20';
memo1.Text:='';
end;

procedure TForm1.GenerierenClick(Sender: TObject);
var
  i, iStop, iStart: Integer;
  a: string;
  begin
  a := edit1.text;
  iStart := 0;
  iStop := strtoint(edit3.text);
  UrlEdit1.Text := '<img src="' +a+ '"alt=""border="0" /
';
  for i := iStart to iStop do
   memo1.lines.Add(Format(UrlEdit1.Text, [i]));

end;
procedure TForm1.SpeichernClick(Sender: TObject);
var
  Datei: TextFile;
begin
 AssignFile(Datei, ExtractFilePath(Application.ExeName) + 'list.html');
  Rewrite(Datei);
  try
    WriteLn(Datei, memo1.text);
  finally
    CloseFile(Datei);
    if Shellscripten(Application.Handle,
                 'open',
                 PChar('D:\Dokumente und Einstellungen\Admin\Desktop\list\list.html'),
                 Nil, Nil, SW_NORMAL) <= 32 then
    ShowMessage('Es ist ein Fehler aufgetreten');
    memo1.Text:='';
  end;
end;
end.
try everything^^
  Mit Zitat antworten Zitat
Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Bilderliste in html mit namen erstellen

  Alt 6. Jan 2007, 19:34
1. Was geht denn nicht?
2. Das Speichern des Textes kannst du auch leichter haben: Memo1.Lines.SaveToFile(filename);
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat
Benutzerbild von Brainstalker
Brainstalker

Registriert seit: 9. Jan 2004
Ort: Berlin
176 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Bilderliste in html mit namen erstellen

  Alt 6. Jan 2007, 20:00
[quote]UrlEdit1.Text := '[img]' +a+ '[/img]':
Code:
UrlEdit1.Text := '[img]' +a+ '[/img]
';

EDIT:

Wenn du hinter das
den Link schreibst, dann steht er unter dem Bild, schreibst du den Link vor das
steht er rechts neben dem Bild.
Michael N.
Brainstalker
  Mit Zitat antworten Zitat
Frankfurter_Bub

Registriert seit: 20. Jun 2006
23 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Bilderliste in html mit namen erstellen

  Alt 6. Jan 2007, 21:02
das mir die graphik neben der datei angezeigt wird,..

ups ">" vergessen... ^^
try everything^^
  Mit Zitat antworten Zitat
7. Jan 2007, 11:36
Dieses Thema wurde von "Jelly" von "Internet / LAN / ASP.NET" nach "Object-Pascal / Delphi-Language" verschoben.
Hat wohl nix direkt mit Internetprogrammierung zu tun.
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf