Anonymní profil Syny09 – Programujte.com

Funguje diky

Mám clientsocket s procedurou onError a chci aby se při chybe nezobrazila zprava, ale aby se errorzprava vepsala to mema. Problem je v tom ze nevim jak ziskat error zpravu. Predem diky.

Predstavuju si to takhle:

procedure TForm1.ClientSocket1Error(Sender: TObject;

  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

  var ErrorCode: Integer);

begin

  memo1.lines.add(ErrorMessage);

  errorcode := 0;

end;

Nějak to nemůžu vymyslet, nemohl by si prosím napsat funkční příklad?

Zdravím, mám tento úkol zadání do školy:

Program přečte stránku HTML (soubor *.html) a vypíše všechny odkazy a cesty a jména obrázků, které stránka obsahuje tj. obsahy tagů <a>, <img>. Soubor *.html otevřít pomocí opendialogu, výsledek do textového souboru nebo mema.

Byl by někdo ochoten mi ho alespoň zhruba napsat? Předem děkuji.