TMS Cryptography Pack 3.0.1.0 XE2-D10.2 Tokyo
↧
↧
TMS Diagram Studio 4.15.D7-XE10.2
↧
TMS FMX/Cloud Pack 3.3.4.2 for XE2-XE10.2
TMS Cloud Pack library of different components to connect to cloud services programs in Windows. Different versions of these components for Delphi, .NET, fmx, LCL, IW is the version that we are going to introduce it for the Delphi programming. Suppose the Windows application you wish to files stored in Google Drive to display, or to log in to the app validation Gmail or Facebook use to sync with Google Maps have or even want to payments through PayPal and provide services Streep for your app users. TMS Cloud Pack all these features without additional coding in the form of a neat API put at your disposal. The library includes various components to connect to cloud services such as Google Drive, Dropbox, Facebook, Twitter, Trlv, YouTube and more.
↧
VisioForge Video Edit SDK v10 Full
VisioForge Video Edit SDK allows programmers to easily integrate video editing and processing capabilities into their software applications. Video Edit SDK allows you to create your own movie out of any audio and video files. You can add various effects to it and transition effects between tracks. Video Edit SDK supports the most popular video formats, such as AVI and Windows Media Video, a free format with wide features - matroska and the most popular Internet format - Flash Video (FLV). In addition, you can take advantages of other formats using third-party DirectShow filters. It is possible to export audio to the most popular formats - MP3 (using most advanced encoder - LAME), OGG Vorbis, Windows Media Audio and WAV (with and without compression).
![İmage]( "Click to large size!")
VisioForge Video Edit SDK major features include:
VisioForge Video Edit SDK major features include:
- Input formats
- video formats - AVI, MPEG-1/2, WMV, 3GP, QuickTime MOV, MPEG-4/H264 (AVC), any other if you have corresponding decoder
- audio formats - WAV, MP3, OGG, WMA, AAC, any other if you have corresponding decoder
- images - BMP, PNG, GIF, JPEG, TIFF
- Add a lot of audio/video files and images
- Adding various parts of video and audio files to the timeline
- Video processing and effects
- image and graphic overlays
- text overlay
- video transparency
- brightness, contrast, saturation, hue, etc.
- deinterlace
- denoise
- pan / zoom
- resize to any resolution
- chroma-key
- 3-rd party DirectShow filters support
- Transition effects between tracks (above 80, same as in Windows Movie Maker)
- Motion detection
- Video encryption
- Encoding parameters
- video size
- frame rate
- video and audio codecs
- video and audio bit rate
- other
- Audio processing and effects
- volume booster
- equalizer
- 3D-bass system
- other effects
- Output video formats:
- AVI
WMV (using built-in or external profiles or specifying all parameters directly) - MKV (Matroska)
- WebM
- MPEG 1/2 (VCD/SVCD/DVD), MPEG-4 (iPod/iPhone), FLV, using FFMPEG
- any other formats via third-party filters (e.g. MPEG1, MPEG2, MPEG4/H264, 3GP)
- MP4 H264 / AAC
- AVI
- Output audio formats
- WAV (PCM or ACM codecs)
- OGG Vorbis
- MP3 (LAME)
- Windows Media Audio
↧
VisioForge Video Capture SDK v10 Full
VisioForge Video Capture SDK allows programmers to easily integrate video capturing and processing capabilities into their software applications. VisioForge Video Capture SDK can play and capture video and audio streams from TV tuners, USB capture devices, DV camcorders, PCI capture cards and IP cameras.
VisioForge Video Capture SDK major features include:
- Preview
- Video capture to
- AVI (using audio/video codecs like MJPEG, DivX, XviD, x264)
- WMV (support of custom WMV profiles. You can configure streams to use variable bit rate encoding (VBR), uncompressed audio or video stream, video size, buffer size, frame rate, etc.)
- DV and MPEG from DV/HDV Camcorders and TV Tuners with internal MPEG Encoder (DirectCapture technology)
- DV (from any video capture device)
- MPEG-1/2/4 (including VCD/SVCD/DVD profiles) and FLV using FFMPEG wrapper
- WebM
- MP4 H264 / AAC
- custom output formats (using 3rd-party DirectShow filters)
- Audio capture to
- WAV (compressed or not)
- MP3 (using LAME)
- Frame capture to Bitmap class, BMP, JPEG and PNG files
- Video processing and effects
- graphic overlay
- text overlay
- video transparency
- brightness, contrast, saturation, hue, etc.
- deinterlace
- denoise
- pan / zoom
- resize to any resolution
- chroma-key
- 3-rd party DirectShow filters support
- Audio processing and effects
- volume booster
- equalizer
- 3D-bass system
- TV Tuning
- TV channels selecting
- video formats selecting
- input selection (TV-Tuner, FM-Tuner, S-Video, etc.)
- TV frequency overrides
- auto-tuning
- Video capture device control
- video input (crossbar interface)
- video format
- frame rate
- supports video cards with several inputs
- camera control (brightness, saturation, etc.)
- Network streaming
- in WMV format
- to other media servers and devices using virtual camera/audio source
- Motion detection
- Closed captions support
- Custom interfaces support
- OSD (On-Screen Display)
- PIP (Picture-In-Picture)
- Video encryption
- Screen capture
- Virtual Camera output
- Multiply output screens support
- DV and HDV MPEG-2 camcorders
- USB web-cameras and other capture devices
- PCI capture cards
- TV Tuners (with and without internal MPEG Encoder)
- JPEG/MJPEG, MPEG-4 and H.264 HTTP / RTSP / RTMP IP cameras / servers, HD format supported
- Audio capture devices and sound cards
↧
↧
VisioForge Media Player SDK v10 Delphi 6 to Delphi XE 10.2
VisioForge Media Player SDK major features include:
Royalty-free distribution.
- Supported file formats (System codecs / DirectShow)
- video formats - AVI, MPEG-1/2, WMV, 3GP, QuickTime MOV, MPEG-4/H264 (AVC), any other if you have corresponding decoder
- audio formats - WAV, MP3, OGG, WMA, AAC, any other if you have corresponding decoder
- DVD
- Supported file formats (FFMPEG engine)
- video formats - AVI, MPEG-1/2, WMV, 3GP, QuickTime MOV, MPEG-4/H264 (AVC), FLV, ASF, MP4, MJPEG, DV, MKV (Matroska), Real Video
- audio formats - WAV, MP3, OGG, WMA, AAC, AC3, Real Audio, ADTS, NSV
- Supported file formats (VLC engine)
- video formats - AVI, MPEG-1/2, WMV, 3GP, QuickTime MOV, MPEG-4/H264 (AVC), FLV, ASF, MP4, MJPEG, DV, MKV (Matroska), Real Video
- audio formats - WAV, MP3, OGG, WMA, AAC, AC3, Real Audio, ADTS, NSV
- Video processing and effects
- image and graphic overlays
- text overlay
- video transparency
- brightness, contrast, saturation, hue, etc.
- inverted colors
- greyscale
- deinterlace
- denoise
- pan / zoom
- chroma-key
- resize to any resolution
- 3rd-party DirectShow filters support
- more than 30 other effects
- Audio processing and effects
- volume booster
- equalizer
- 3D-bass system
- normalization
- auto / manual gain
- a lot of another effects
- File playback from the memory
- Motion detection
- Multiply output screens support
- Frame capture to TBitmap/HBITMAP in Delphi/ActiveX, BMP/JPEG/GIF/PNG files
- OSD (On-Screen Display)
- Audio streams from additional audio/video files
- Subtitles support
- Delphi 6 / 7 / 2005 / 2006 / 2007 / 2009 / 2010 / XE / XE2 / XE3 / XE4 / XE5 / XE6 / XE7 / XE8 / 10 / 10.1 / 10.2
- x86 and x64 versions
- Windows 10, Windows 8/8.1, Windows 7, Windows Vista, Windows XP, Windows Server 2003 and later
- .Net Framework 2.0 or later (for some demo applications)
- DirectX 9 or later
Royalty-free distribution.
↧
Embeddable HTML/CSS/script engine
↧
TMS Cloud Pack 3.8.4.2 for XE2-XE10.2
TMS Cloud Pack library of different components to connect to cloud services programs in Windows. Different versions of these components for Delphi, .NET, fmx, LCL, IW is the version that we are going to introduce it for the Delphi programming. Suppose the Windows application you wish to files stored in Google Drive to display, or to log in to the app validation Gmail or Facebook use to sync with Google Maps have or even want to payments through PayPal and provide services Streep for your app users. TMS Cloud Pack all these features without additional coding in the form of a neat API put at your disposal. The library includes various components to connect to cloud services such as Google Drive, Dropbox, Facebook, Twitter, Trlv, YouTube and more.
![İmage]( "Click to large size!")
↧
UniDAC 7.2.8 released
7.3.8 09-Jul-18
- Lazarus 1.8.4 is supported
- Performance of batch operations is improved
- Demo projects for IntraWeb 14 are added
- The LocalUpdate property for TVirtualQuery is added
- The AutoOpenSources option for TVirtualQuery is added
- Memory leak in NEXTGEN is fixed
- Bug with updating a record when using the OnFilterRecord event handler is fixed
- Bug with using encryption and CacheCalcFields option is fixed
- Bug with using a backslash in the Filter property is fixed
- Bug with using First method in the Master-Detail relationship is fixed
- Bug with reading BLOB fields data on mobile platforms in TVirtualTable is fixed
- Now non-compiled stored procedures can be described in the Direct mode
- Performance of data fetching in the Direct mode is improved
- Performance of describing stored procedures in the Direct mode is improved
- Support for TIMESTAMP WITH TIMEZONE in the Direct mode is improved
- Bug with AV on destroying Query that executed batch DML with LOB parameters after connection was closed is fixed
- Bug with writing trash in the BLOB fields on executing batch DML operations in the Direct mode is fixed
- MARS in TDS is supported
- NonBlocking mode in TDS is supported
- Query notifications in TDS are supported
- Bug with processing parameters with ftUnknown data type is fixed
- Bug with processing transaction descriptors is fixed
- MySQL 8 is supported
- Support for sha2_password, caching_sha2_password authentications is added
- Bug with application freezing when using stored procedure is fixed
- Bug with using the LongStrings option is fixed
- Now the "Data type is not supported" exception is not raised by the Query component when the DescribeParams property is set to True
- Bug with loading GUID values using the Loader component is fixed
- Bug with loading VARCHAR values using the Loader component is fixed
- Bug with the BreakExec method is fixed
- Bug with the "Stream read error" error is fixed
- Bug with the "Incomplete multibyte char" error for non-Windows platforms is fixed
- Support for HTTP/HTTPS tunnel is added
- Bug with retrieving the result recordset when using an INSERT ... RETURNING statement in batch operations is fixed
- Bug with a connection error using SSL on some servers is fixed
- WAL in the Direct Mode for non-Windows platforms is supported
- Bug with retrieving data in a Detail dataset having SmartFetch enabled is fixed
- Bug with AV on macOS High Sierra is fixed
- Retrieving the OUTPUT parameters is improved
- The Decimal128 data type is supported
- Precompiled MongoDB client libraries are included in the Professional Edition
- Performance of fetching large documents is improved
- Support for Clipper/Harbour is added
- Support for native indexes based on complex expressions is added
- Compatibility with Codebase is improved
- Bug with opening some dBaseIII/dBaseIV tables is fixed
- Bug with creating a table having the hyphen in the name is fixed
- App center client authentication is supported
- FreshBooks new version is supported
- Magento version 2.x is supported
- Sandbox is supported
- Domain is supported
↧
↧
TeeChart Pro VCL FMX Full Source Code 2018.24 + Examples + Docs + Keygen
TeeChart Pro VCL FMX Full Source Code 2018.24 + Examples + Docs + Keygen
↧
Blaise Pascal Magazine 72 + source codes
Download
↧
Introduction to Android Mobile Development with Delphi
Learn to build Android Mobile Apps with Delphi w/ Live LecturesIn this course you will learn the fundamentals of Android mobile application development through a project centered approach. A combination prerecorded lectures along with live weekly wrap up sessions are used to maximize the learning impact. Replays of live sessions will be posted so even if you can't attend a live session, you won't miss a thing. Your trainers include Developer Advocate Jim McKeeth and Software Consultant Craig Chapman, both from Embarcadero Technologies.This course assumes you are familiar with Delphi development, but want to gain an understanding of mobile development. The fundamentals of this course will also work for iOS development. Most of the differences for iOS will be pointed out during the course, but it won’t be the focus. Most of the sample courses can be compiled to Android, iOS, macOS and Windows.This course is self-paced with live weekly lectures. You may enroll at anytime and learn at your own pace. If you miss or cannot attend a live lecture or enroll late, it's ok as we will be posting replays of the live classes after they happen for you to view at your own pace and schedule.Topics covered:
- Settings up for mobile development
- Overview of FireMonkey
- Overview of Android platform
- REST Client development
- Mobile databases
- Push notifications
- Working with the camera
- Bluetooth LE and the Internet of Things
- and more!
↧
All EMB soft for RS 10.2 Tokyo
You can't view the links! Click here to register
BDE Installer for RAD Studio, Delphi, C++Builder 10.2 Tokyo
Note: you need 10.2 Tokyo already installed to add the BDE to your installation.
Note: after you have installed the BDE, you will also need to install the components into the 10.2 IDE if you want to work with the components at design time. Read the article at You can't view the links! Click here to register
Available only to registered users of Delphi, C++Builder, RAD Studio 10.2 Tokyo, and Embarcadero All-Access XE
BDE Installer for RAD Studio, Delphi, C++Builder 10.2 Tokyo
Note: you need 10.2 Tokyo already installed to add the BDE to your installation.
Note: after you have installed the BDE, you will also need to install the components into the 10.2 IDE if you want to work with the components at design time. Read the article at You can't view the links! Click here to register
Available only to registered users of Delphi, C++Builder, RAD Studio 10.2 Tokyo, and Embarcadero All-Access XE
↧
↧
Crystal Reports 11 For Delphi
About: Last Crystal Report 11
How to: ReadMe.txt inside
Why?: Delphi Components included
Size: Bit above 1 Gig
Extract the CrystalReort.cab inside win32 folder and install using dotnet2005.msi there.
Works with latest Delphi on Win10 64
How to: ReadMe.txt inside
Why?: Delphi Components included
Size: Bit above 1 Gig
Extract the CrystalReort.cab inside win32 folder and install using dotnet2005.msi there.
Works with latest Delphi on Win10 64
↧
Dont use GetIt Package Manager License!!!!
When you launch GetIt (in every request), it collects information from ALL found slip files...
(all serial numbers, all product id, all client id, trial/network licenses or not, and so on...)
here is example (what GetIt send in every request)
![İmage]( "Click to large size!")
most interesting here is P1
this is encrypted JSON, which contain MACList (MAC of all network adapters in your PC),
HostName (same as name of PC), DomainName, DnsServerList...
here is decrypted example:
Big thanks for UniSoft
(all serial numbers, all product id, all client id, trial/network licenses or not, and so on...)
here is example (what GetIt send in every request)
most interesting here is P1
this is encrypted JSON, which contain MACList (MAC of all network adapters in your PC),
HostName (same as name of PC), DomainName, DnsServerList...
here is decrypted example:
Code:
{"MACList":["11-22-33-44-55-66","AA-BB-CC-DD-EE-FF",...,"00-00-00-00-00-00"],"HostName":"MY_PC_NAME","DomainName":"","DnsServerList":[{"HostIp":"10.0.0.1","HostName":""},{"HostIp":"192.168.1.1","HostName":""}]}Big thanks for UniSoft
↧
Vlc media player components and use
1. First download vcl component for x32
2.Copy files from C:\Program Files (x86)\VideoLAN\VLC (plugins and .dll) to your project directory
4. PasLibVlc component download
5. Add library to Uses
uses PasLibVlcUnit;
6. Add this to event Form OnCreate
7. For Test you can use this code
Download Needed Components
2.Copy files from C:\Program Files (x86)\VideoLAN\VLC (plugins and .dll) to your project directory
4. PasLibVlc component download
5. Add library to Uses
uses PasLibVlcUnit;
6. Add this to event Form OnCreate
Code:
libvlc_dynamic_dll_init_with_path(ExtractFilePath(ParamStr(0)));
libvlc_dynamic_dll_init();
if (libvlc_dynamic_dll_error <> '') then
begin
MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0);
exit;
end;7. For Test you can use this code
Code:
PasLibVlcPlayer1.Play('http://www.quirksmode.org/html5/videos/big_buck_bunny.mp4');Download Needed Components
↧
WSDL HelperClass by mrmarman
Code:
{***************************************************************************}
{ }
{ WSDL Helper Class }
{ }
{ Copyright © 2016 Muharrem ARMAN }
{ muharrem.arman@trt.net.tr }
{ }
{***************************************************************************}
{ }
{ Suya SOAP'a Dokunmadan [ : ) ] Web Service Altyapısını tek bir }
{ HelperUnit ile projenize kazandıran altyapıdır }
{ }
{ USES listesine bu UNIT'in eklenmesi yeterlidir. }
{ Ekstra bir tanımlamaya gerek yoktur. }
{ Gerekli WebService sınıfı kendiliğinden create edilecek, OnWebCagriGeldi }
{ eventi atanmışsa çağrı projeniz tarafından dikkate alınacaktır. }
{ }
{ Kullanımı : }
{ (1) Formunuzun Private kısmına aşağıdaki tanımı ekleyiniz... }
{ }
{ procedure OnWebCagriGeldi(Sender: TObject; Request : TWebRequest; }
{ Response: TWebResponse ); }
{ }
{ (2) Formun OnCreate olayına da aşağıdaki size özel tanımları yapınız. }
{ }
{ xWSDLHelper.DefaultPort := 7000; // sizin için uygun olanı neyse }
{ xWSDLHelper.ServerActive := True; }
{ xWSDLHelper.OnWebCagriGeldi := OnWebCagriGeldi; }
{ }
{ (3) OnWebCagriGeldi olayına da aşağıdaki dilediğinizi yapınız. }
{ }
{ procedure TForm1.OnWebCagriGeldi(Sender: TObject; Request : TWebRequest; }
{ Response: TWebResponse );}
{ Var }
{ strMesaj : WideString; }
{ begin }
{ Memo1.Lines.BeginUpdate; }
{ Memo1.Lines.Add( 'RemoteIp : ' + Request.RemoteIP ); }
{ Memo1.Lines.Add( 'RemoteHost: ' + Request.RemoteHost ); }
{ Memo1.Lines.Add( 'From : ' + Request.From ); }
{ Memo1.Lines.Add( 'Host : ' + Request.Host ); }
{ Memo1.Lines.Add( 'RemoteAddr: ' + Request.RemoteAddr ); }
{ Memo1.Lines.Add( 'URL : ' + Request.URL ); }
{ Memo1.Lines.Add( 'Content : ' + Request.Content ); }
{ Memo1.Lines.EndUpdate; }
{ strMesaj := '<html>' }
{ + '<meta http-equiv=Content-Type content="text/html;' }
{ + ' charset=Windows-1254">' }
{ + '<body>' }
{ + 'Merhaba.' + '</br>' }
{ + '<font color="red">Muharrem ARMAN</font>' + '</br>' }
{ + 'Dinamik WebService TEST...' + '</br>' }
{ + '<img src="Resim_01">' + '</br>' }
{ + '<img src="Resim_01">' + '</br>' }
{ + '<img src="Resim_01">' + '</br>' }
{ + '<img src="Resim_01">' + '</br>' }
{ ; }
{ if String(Request.Host) = String(Request.RemoteAddr) }
{ then strMesaj := strMesaj + 'Beni şu IP''den çağırdınız : ' }
{ + String(Request.Host) + '</br>' }
{ else strMesaj := strMesaj + 'Beni şu DOMAIN ile çağırdınız : ' }
{ + String(Request.Host) + '</br>'; }
{ }
{ strMesaj := strMesaj + 'Sizin IP Adresiniz : ' }
{ + String(Request.RemoteAddr) + '</br>' }
{ + '</body></html>'; }
{ Response.Content := strMesaj; }
{ end; }
{ }
{***************************************************************************}
{ }
{ Üzerinde değişiklik yapmak serbesttir ancak lütfen bu etiket bloğu }
{ içine yaptığınız değişikliği ve künyenizi yazmayı ihmal etmeyiniz. }
{ }
{***************************************************************************}
{ Değişikliği Yapan, Yapılan Ekleme/Değişiklik bilgisi : }
{ }
{ }
{ }
{***************************************************************************}
Unit WSDL_HelperUnit;
interface
Uses
Windows, SysUtils, Classes,
IdHTTPWebBrokerBridge, WebReq, HTTPApp;
Type
tARMAN_WSDL = class(TWebModule)
private
procedure ARMAN_DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
function ResimGonder(ResStream: TResourceStream; Response: TWebResponse): Boolean;
procedure Resim_01_Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
public
constructor Create(AOwner: TComponent); override;
end;
Type
TOnWebCagriEvent = procedure(Sender: TObject; Request : TWebRequest; Response: TWebResponse ) of object;
TWSDL_Helper = Class(TObject)
private
FServer : TIdHTTPWebBrokerBridge;
FDefPort : Integer;
FOnWebCagriEvent : TOnWebCagriEvent;
Function FDefPortGet : Integer;
Procedure FDefPortSet( DefPort: Integer );
procedure FServerActivate( boolDurum: boolean = true );
function FIsServerActive: Boolean;
public
constructor Create;
destructor Destroy; Override;
property DefaultPort : Integer read FDefPortGet write FDefPortSet;
property ServerActive: boolean read FIsServerActive write FServerActivate;
property OnWebCagriGeldi: TOnWebCagriEvent read FOnWebCagriEvent write FOnWebCagriEvent;
end;
Var
WebModuleClass : TComponentClass = tARMAN_WSDL;
xWSDLHelper : TWSDL_Helper;
xTest : tARMAN_WSDL;
implementation
{$R RES\RES.RES} // basit Form Object ve Resim JPG dosyası bulunduruyor.
{ TWSDL_Helper }
constructor TWSDL_Helper.Create;
begin
inherited;
if WebRequestHandler <> nil then
WebRequestHandler.WebModuleClass := WebModuleClass;
// Create server.
FServer := TIdHTTPWebBrokerBridge.Create;
// Register web module class.
FServer.RegisterWebModuleClass( tARMAN_WSDL );
end;
destructor TWSDL_Helper.Destroy;
begin
FServer.Active := False;
FServer.Bindings.Clear;
FreeAndNil(FServer);
inherited;
end;
function TWSDL_Helper.FDefPortGet: Integer;
begin
Result := FDefPort;
end;
procedure TWSDL_Helper.FDefPortSet(DefPort: Integer);
begin
FDefPort := DefPort;
if FServer.Active
then FServer.Active := False;
FServer.Bindings.Clear;
// Set default port.
FServer.DefaultPort := FDefPort;
// Start server.
FServer.Active := True;
end;
function TWSDL_Helper.FIsServerActive: Boolean;
begin
Result := FServer.Active;
end;
procedure TWSDL_Helper.FServerActivate(boolDurum: boolean);
begin
if FServer.Active
then FServer.Active := False;
FServer.Bindings.Clear;
FServer.Active := boolDurum;
end;
{ tARMAN_WSDL }
constructor tARMAN_WSDL.Create(AOwner: TComponent);
begin
inherited;
// Varsayalın (Default) Action Ekledim.
With Actions.Add do
begin
Default := True;
Name := 'DefaultHandler';
PathInfo := '/';
OnAction := ARMAN_DefaultHandlerAction;
end;
// Yeni bir Action Ekledim. Kodla ekledim açıklayıcı olsun istedim.
With Actions.Add do
begin
Default := False;
Enabled := True;
MethodType := mtAny;
Name := 'R01_Resim';
PathInfo := 'Resim_01';
OnAction := Resim_01_Action;
end;
end;
procedure tARMAN_WSDL.ARMAN_DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
strMesaj : String;
begin
// Handled := True;
if Assigned( xWSDLHelper.OnWebCagriGeldi ) then
begin
xWSDLHelper.OnWebCagriGeldi( sender, Request, Response );
end else
begin
strMesaj := '<html>'
+ '<meta http-equiv=Content-Type content="text/html; charset=Windows-1254">'
+ '<body>'
+ 'Merhaba.' + '</br>'
+ '<font color="red">Muharrem ARMAN</font>' + '</br>'
+ 'WebService TEST...' + '</br>'
+ '<img src="' + String(Request.URL) + 'Resim_01">' + '</br>'
;
if String(Request.Host) = String(Request.RemoteAddr)
then strMesaj := strMesaj + 'Beni şu IP''den çağırdınız : '+ String(Request.Host) + '</br>'
else strMesaj := strMesaj + 'Beni şu DOMAIN ile çağırdınız : '+ String(Request.Host) + '</br>';
strMesaj := strMesaj + 'Sizin IP Adresiniz : ' + String(Request.RemoteAddr) + '</br>'
+ '</body></html>';
Response.Content := strMesaj;
end;
end;
function tARMAN_WSDL.ResimGonder( ResStream:TResourceStream; Response: TWebResponse ): Boolean;
begin
try
ResStream.Position := 0;
Response.ContentStream := ResStream;
Response.ContentType := 'image/jpeg';
Response.SendResponse;
Result := True;
//Dikkat: FileStream FREE edilmeyecek çünkü yayındayız...
except
on E: Exception do begin
Response.Content := '<html><body>Bir hata ile karşılaşıldı...' +
E.ClassName + ': ' + E.Message + '</body></html>';
Result := False;
end;
end;
end;
procedure tARMAN_WSDL.Resim_01_Action(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
begin
Handled := True;
// Response edilirken HTML içerisinde "Resim_01" kullanılan yerlerde
// bu Action devreye girererek daha önce belirlediğimiz resmi yollar...
ResimGonder( TResourceStream.Create(HInstance, Format('img_%.2d', [1]), RT_RCDATA), Response );
end;
initialization
xWSDLHelper := TWSDL_Helper.Create;
finalization
FreeAndNil(xWSDLHelper);
end.Download Example and project
↧
↧
Grid panel component
↧
Devexpress CxGrid ServerMode - Unidac Component
Normally you can find for ADO,DBX,FireDAC but not for unidac. This is component server mode for unidac.
Example Use
Code:
function TForm1.ServerModeQuery(sqlStr: String): TServerModeUniDacQueryDataSource;
begin
Result := nil;
try
ServerModeUniDacQueryDataSource1.Close;
ServerModeUniDacQueryDataSource1.SQL.Clear;
ServerModeUniDacQueryDataSource1.SQL.Add(sqlStr);
ServerModeUniDacQueryDataSource1.Open;
Result := ServerModeUniDacQueryDataSource1;
except
Result := nil;↧
More Pages to Explore .....
