delphi - multimedia programming with delphi (chapter)

... CDMain.pas. Multimedia Programming with Delphi CHAPTER 18 371 P2/V4/SWG2 Developer’s Guide 3128 4-0 Marcia 7.16.98 CH18 Lp#3 P2/V4/SWG2 Developer’s Guide 3128 4-0 Marcia 7.13.98 CH18 Lp#2 18 MULTIMEDIA PROGRAMMING WITH DELPHI Table ... } end; end; Multimedia Programming with Delphi CHAPTER 18 373 P2/V4/SWG2 Developer’s Guide 3128 4-0 Marcia 7.16.98 CH18 Lp#3 P2/V...

Ngày tải lên: 16/04/2014, 11:14

... Date: Sat, 20-May-95 03:25:12 GMT Server: NCSA/1.3 MIME-version: 1.0 Content-type: text/html Last-modified: Wednesday, 14-Mar-95 18:15:23 GMT Content-length: 1029 [Entity-body data] In ... example If-Modified-Since header might read: If-Modified-Since: Fri, 02-Jun-95 02:42:43 GMT The same formats accepted for the Date header (listed in Appendix A) are used for the If-Modified-Sin...

Ngày tải lên: 17/10/2013, 19:15

... $opt_H, $opt_d); } The call to Getopts( ) indicates that we're interested in the -h, -H, -r, and -d command-line options. When Getopts( ) finds these switches, it sets $opt_* (where * is the ... handle to associate with the socket, what the network protocol is, and whether the socket should be stream-oriented or record-oriented. For HTTP transactions, sockets are stream-oriented...

Ngày tải lên: 20/10/2013, 10:15

... and entity-body to not echo to STDOUT. This isn't needed anymore in the context of this program. Also, instead of parsing the -r, -H, and -d command-line arguments, we look for -i for displaying ... "usage: $0 -hil URL(s)\n"; print " -h help\n"; print " -i print out image URLs\n"; print " -l print out hyperlink URLs\n"; exit (-1 );...

Ngày tải lên: 20/10/2013, 10:15

... $request->header('content-length' => 2); $request->header('content-type' => 'text/plain'); $request->content('hi'); print $request->as_string( ... $ua->agent([$product_id]) When invoked with no arguments, this method returns the current value of the identifier used in the User-Agent HTTP header. If invoked with an argum...

Ngày tải lên: 24/10/2013, 08:15

... HTTP::Request('GET', $ARGV[0]); my $response = $ua->request($request); if ($response->is_success) { print $response->content; } else { print $response->error_as_HTML; } have to call the ... "ls -l", and Windows "dir", among others. When a time zone is not implicit in the $response->header('content-type' => 'text/plain&...

Ngày tải lên: 24/10/2013, 08:15

... command-line processing with getopts( ): getopts('hilp:'); my $all = !($opt_i || $opt_l); # $all=1 when -i -l not set if ($opt_h || $#ARGV= =-1 ) { # print help text when -h or ... "HELP"; usage: $0 [-hilp] [proxy URL] URLs -h help -i grep out images references only -l grep out hyperlink references only -p use this proxy server Example: $0 -p http:...

Ngày tải lên: 28/10/2013, 15:15

... Options: -l Display local URLs -r Display remote URLs -R Display which HTML pages refers to what -n Display non-HTML links -b Display bad URLs (default) -a Display all of the above -v ... %{ $self->{'bad'} }; undef %{ $self->{'not_web'} }; undef %{ $self->{'local'} }; undef %{ $self->{'remote'} }; undef %{ $self->{...

Ngày tải lên: 28/10/2013, 15:15

... $scroll->configure(-command => ['yview', $text]); $scroll->pack(-side => 'right', -expand => 'no', - fill => 'y'); $text->pack(-side ... 'lucidasans-bold-18'); $text->tag('configure', '</H3>', -font => 'lucidasans-bold-14'); $text->tag('configure', '<...

Ngày tải lên: 07/11/2013, 09:15

... item $text->configure(-state => "normal"); $text->delete('1.0', 'end'); $html->traverse(\&display_html); $text->configure(-state => ... $mw = MainWindow->new; $mw->title("Package Tracker"); $mw->CmdLine; We created a window, gave it a title, and allowed the Tk portion to process any command-line options. ......

Ngày tải lên: 07/11/2013, 09:15