小编use*_*313的帖子
phpinfo()不起作用
我在CENTOS服务器上安装了PHP.但是,在我的脚本中运行phpinfo()来测试它时,我会收到HTML,而不是解释的信息.我可以看到PHP的文件夹.我甚至可以在etc文件夹中看到php.ini.但是php本身似乎并没有起作用.我的意思是我的test.php文件看起来像这样:
<?php
phpinfo();
?>
响应看起来像这样:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "DTD/xhtml1-transitional.dtd">
<html><head>
<style type="text/css">
body {background-color: #ffffff; color: #000000;}
body, td, th, h1, h2 {font-family: sans-serif;}
pre {margin: 0px; font-family: monospace;}
a:link {color: #000099; text-decoration: none; background-color: #ffffff;}
...
等等.
什么似乎是问题,我该如何解决？如果我复制返回的HTML,将其粘贴到HTML文件中,然后从那里运行,我可以看到格式化结果,但不能运行test.php.我假设php没有以某种方式加载...即使在解释的HTML中我可以看到:
**Server API Apache 2.0 Handler
Virtual Directory Support disabled
Configuration File (php.ini) Path /etc/php.ini
Scan this dir for additional .ini files /etc/php.d
additional .ini files parsed /etc/php.d/dbase.ini, /etc/php.d/json.ini, /etc/php.d/mysql.ini, /etc/php.d/mysqli.ini, /etc/php.d/pdo.ini, /etc/php.d/pdo_mysql.ini, /etc/php.d/pdo_sqlite.ini
PHP API 20041225
PHP …推荐指数
解决办法
查看次数
Android将DatePicker设置为特定日期
我有3个包含日,月和年值的字符串.例如:
String mday = "02";
String mmonth="07";
String myear="2013";
我需要将活动中的DatePicker设置为从上面的日期开始的一个月.我并不是说只是将1加到mmonth值......如果是第31天,我最终会得到一个无效的日期.所以我需要一些方法来增加日期(有效的方式)并设置DatePicker的值.我知道使用Int值设置datePicker是这样的:
DatePicker datepicker = (DatePicker) findViewById(R.id.datePicker1);
datepicker.init(iYear, iMonth, iDay, null);
// where iYear,iMonth and iDay are integers
但是如何获得递增DATE的日,月和年的整数值一个月？
那么在第一个值(字符串)和递增日期的最终值(整数)之间我必须做出哪些步骤？
我想我必须使用日历.所以我的代码应该是这样的:
Integer iYear, iMonth, iDay = 0;
String mday = "02";
String mmonth="07";
String myear="2013";
Calendar cal = Calendar.getInstance();
cal.set(Integer.parseInt(myear), Integer.parseInt(mmonth), Integer.parseInt(mday));
cal.add(Calendar.MONTH, 1);
// here I should get the values from cal inside the iYear, iMonth, iDay, but I do not seem to succeed.
DatePicker datepicker = (DatePicker) findViewById(R.id.datePicker1);
datepicker.init(iYear, iMonth, …推荐指数
解决办法
查看次数
Delphi如何向TImage32添加透明层
我需要能够将透明的PNG图像作为图层添加到ImgView32(来自graphics32库).有谁知道如何实现这一目标？
基本上,我可以将任何图像作为图层添加到我的Image32,但所有图像(即使它们本质上是透明的)都具有白色背景.我需要解决这个问题.有人有任何想法吗？
这是我将图像添加为图层的方式:
var
B: TBitmapLayer;
P: TPoint;
W, H: Single;
const
MasterAlpha: SmallInt = 100;
begin
with OpenPictureDialog do
if Execute then
begin
B := TBitmapLayer.Create(ImgView321.Layers);
with B do
try
Bitmap.LoadFromFile(FileName);
Bitmap.DrawMode := dmTransparent;
with ImgView321.GetViewportRect do
P := ImgView321.ControlToBitmap(GR32.Point((Right + Left) div 2, (Top + Bottom) div 2));
W := Bitmap.Width * 0.5;
H := Bitmap.Height * 0.5;
with ImgView321.Bitmap do
Location := GR32.FloatRect(P.X - W, P.Y - H, P.X + W, P.Y + H);
Scaled := True; …推荐指数
解决办法
查看次数
Delphi Graphics32 在图层上绘制透明椭圆
我希望能够在 ImgView32 的透明层上绘制一个空的椭圆。知道该怎么做吗？到目前为止我能想到的只有：
BL := TBitmapLayer.Create(ImgView.Layers);
BL.Bitmap.DrawMode := dmTransparent;
BL.Bitmap.SetSize(imwidth,imheight);
BL.Bitmap.Canvas.Pen.Width := penwidth;
BL.Bitmap.Canvas.Pen.Color := pencolor;
BL.Location := GR32.FloatRect(0, 0, imwidth, imheight);
BL.Scaled := False;
BL.OnMouseDown := LayerMouseDown;
BL.OnMouseUp := LayerMouseUp;
BL.OnMouseMove := LayerMouseMove;
BL.OnPaint := LayerOnPaint;
...
BL.Bitmap.Canvas.Pen.Color := clBlue;
BL.Bitmap.Canvas.MoveTo(FStartPoint.X, FStartPoint.Y);
BL.Bitmap.Canvas.Ellipse(FStartPoint.X, FStartPoint.Y,FEndPoint.X, FEndPoint.Y);
开始点和结束点是通过鼠标事件获取的。
我实际上正在尝试绘制一个动态椭圆（在鼠标事件上）。所以就涉及到onMouseDown(LayerMouseDown)、onMouseUp(LayerMouseUp)和OnMouseMove(LayerMouseMove)事件。作为参考，请检查这个问题，它涉及动态绘制线条。我想做同样的事情，但用椭圆而不是直线。
因此，我没有使用 AddLineToLayer，而是使用 AddCircleToLayer 过程。事件现在如下所示：
procedure TForm5.SwapBuffers32;
begin
TransparentBlt(
BL.Bitmap.Canvas.Handle, 0, 0, BL.Bitmap.Width, BL.Bitmap.Height,
bm32.Canvas.Handle, 0, 0, bm32.Width, bm32.Height, clWhite);
end;
procedure TForm5.ImgViewResize(Sender: TObject);
begin
OffsX := (ImgView.ClientWidth - imwidth) div …推荐指数
解决办法
查看次数
在ImgView32图层上绘制粗虚线
我只想在ImgView32中的一个图层上绘制一条垂直虚线粗线.我还希望我的线条更粗,所以我绘制了多条彼此靠近的线条,因为Canvas.Pen.Width对LineTo方法没有影响.所以我的代码如下:
procedure TMainForm.PaintDottedHandler(Sender: TObject;Buffer: TBitmap32);
var
Cx, Cy,raza: Single;
W2, H2: Single;
I,J: Integer;
points:TArrayOfFloatPoint;
Center, Radius:TFloatPoint;
const
CScale = 1 / 200;
begin
if Sender is TPositionedLayer then
with TPositionedLayer(Sender).GetAdjustedLocation do
begin
W2 := (Right - Left) * 0.5;
H2 := (Bottom - Top) * 0.5;
Cx := Left + W2;
Cy := Top + H2;
W2 := W2 * CScale;
H2 := H2 * CScale;
Buffer.PenColor := clRed32;
Buffer.MoveToF(Cx-2,Top);
Buffer.LineToFSP(Cx-2 , Bottom);
Buffer.MoveToF(Cx-1,Top);
Buffer.LineToFSP(Cx-1 , Bottom);
Buffer.MoveToF(Cx,Top);
Buffer.LineToFSP(Cx …推荐指数
解决办法
查看次数
在StringGrid中强制选择单元格 - Delphi
是否可以强制选择我的StrinGrid？我想只允许用户水平选择单元格,即使鼠标在选择时可以上下移动,我想要stringgrid只在有MouseDown的行上显示选择.因此,当用户想要选择一系列单元格时,他将单击鼠标,向右(或向左)拖动鼠标,同时查看如何一个接一个地选择单元格,然后是MouseUp事件.在拖动时,我不希望用户在移动鼠标时看到其他行(而不是拖动开始的行).我假设我应该在StringGrid的onMouseMove中做一些事情......但是怎么样？
到目前为止我的代码是:
// this draws a focus rect around the selected cell (DefaultDrawing=false)
procedure TForm2.sgDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
begin
if (gdFocused in State)or(gdSelected in State) then
begin
sg.Canvas.Pen.Color:=$00FFEECC;
sg.Canvas.MoveTo(Rect.Left,Rect.Top);
sg.Canvas.LineTo(Rect.Right,Rect.Top);
sg.Canvas.LineTo(Rect.Right,Rect.Bottom);
sg.Canvas.LineTo(Rect.Left,Rect.Bottom);
sg.Canvas.LineTo(Rect.Left,Rect.Top);
end
else
begin
sg.Canvas.Brush.Color:=clWhite;
sg.Canvas.FillRect(Rect);
end;
end;
procedure TForm2.sgMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
myrow:=sg.Row;
mycol:=sg.Col;
end;
procedure TForm2.sgMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
sg.Row:=myrow;
end;
可能吗？我怎样才能做到这一点？
推荐指数
解决办法
查看次数
Android Autoscroll imageview
在我的活动中,我只有一个ImageView.在其中,src是比屏幕大很多的图片.我希望图片从左到右缓慢滚动,直到它到达照片的右边缘,然后开始向左滚动,直到达到左边距.然后重新开始.我需要它在一个单独的线程中发生,这样手机就不会在发生这种情况时冻结.
我怎样才能做到这一点？是否有一个小部件默认执行此操作？
更新的代码 //布局:
<?xml version="1.0" encoding="utf-8"?>
<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
android:id="@+id/mylinear"
android:layout_width="fill_parent"
android:layout_height="fill_parent"
android:orientation="vertical"
>
<ImageView
android:id="@+id/img"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:scaleType="center"
android:src="@drawable/rainforest" />
</RelativeLayout>
//和活动
public class MainActivity extends Activity {
Animation _translateAnimation;
RelativeLayout _relativeLoading = null;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
_translateAnimation = new TranslateAnimation(TranslateAnimation.ABSOLUTE, 0f, TranslateAnimation.ABSOLUTE, -100f, TranslateAnimation.ABSOLUTE, 0f, TranslateAnimation.ABSOLUTE, 0f);
_translateAnimation.setDuration(5000);
_translateAnimation.setRepeatCount(-1);
_translateAnimation.setRepeatMode(Animation.REVERSE); // REVERSE
_translateAnimation.setInterpolator(new LinearInterpolator());
_relativeLoading = (RelativeLayout) findViewById(R.id.mylinear);
_relativeLoading.startAnimation(_translateAnimation);
}
但它没有了.我的意思是,滚动从左到右,将图片"推"到左边,并在ImageView下显示白色背景.
此外,这应该在一个线程或什么？我需要能够以某种方式退出这个"滚动"活动,而不使用"后退"按钮.我想要一个ImageView顶部的按钮(按钮应保持静止)和onClick它应该启动另一个Intent
似乎ImageView中的图片被裁剪为适合屏幕内部.我怎么能克服这个？
推荐指数
解决办法
查看次数
微调文本颜色是白色？
我在布局中使用了一个Spinner.我用这个代码:
...
<Spinner
android:layout_width="200dp"
android:layout_height="wrap_content"
android:id="@+id/spin_prod_promo" />
...
现在,当我分配它的适配器时,我使用以下代码:
...
ArrayAdapter<String> dataAdapter = new ArrayAdapter<String>(mcontext, android.R.layout.simple_spinner_item, mylabels);
// Drop down layout style
dataAdapter.setDropDownViewResource(android.R.layout.simple_spinner_dropdown_item);
Spinner myspinner = (Spinner) V.findViewById(R.id.spin_prod_promo);
// attaching data adapter to spinner
myspinner.setAdapter(dataAdapter);
...
我的问题是,微调器的文本颜色是白色的...因此是不可读的,我不会在代码中的任何地方将它设置为这样.
"有趣的是"我在不同的活动中使用完全相同的代码并且Spinner具有正确的颜色.不同之处在于,在此(BAD)情况下,微调器位于片段中.
- 因此,如果微调器处于活动状态 - 颜色很好
- 如果微调器位于片段上 - 颜色混乱
我尝试使用自定义布局作为微调器的项目,但我成功的是使微调器看起来禁用.此外,下拉列表中总有一个项目具有背景颜色(只有点击它才能看到它,然后只要我点击就可以看到内容)这里发生了什么？我怎么解决这个问题？
我可以做些什么来设置微调器的颜色作为主题的颜色？片段中的所有其他小部件都具有正常颜色......
谢谢
推荐指数
解决办法
查看次数
将ImgView32透明层保存到PNG
我在将ImgView32图层保存为TRANSPARENT PNG时遇到问题.我使用这个问题的代码来进行保存.但是,图像以白色背景保存.
这是我如何初始化我的ImgView32,在其上创建一个图层,然后在其上绘制一条线:
procedure TputLine.FormCreate(Sender: TObject);
var
P: TPoint;
W, H: Single;
imwidth: integer;
imheight: integer;
begin
imwidth := Iv1.Width;
imheight := Iv1.Height;
with iv1 do
begin
Selection := nil;
Layers.Clear;
Scale := 1;
Scaled := True;
Bitmap.DrawMode := dmTransparent;
Bitmap.SetSize(imwidth, imheight);
Bitmap.Canvas.Pen.Width := 4;
end;
BL := TBitmapLayer.Create(iv1.Layers);
try
BL.Bitmap.DrawMode := dmTransparent;
BL.Bitmap.SetSize(imwidth,imheight);
BL.Bitmap.Canvas.Pen.Width := penwidth;
BL.Bitmap.Canvas.Pen.Color := pencolor;
BL.Location := GR32.FloatRect(0, 0, imwidth, imheight);
BL.Scaled := False;
except
BL.Free;
raise;
end;
end;
所以iv1是我的ImgView32的名字.然后我用这段代码画一条线:
var
bm32:TBitmapLayer;
... …推荐指数
解决办法
查看次数
jquery mobile破坏了我的POST
我有一个包含HEAD部分和BODY部分的HTML文件(index.html).在BODy部分,我有一个表单,其中一个POST动作指向一个php文件.
如果我添加到HEAD部分jQueryMobile的CDN ...然后POST停止工作.这怎么可能,以及如何避免这种情况？
所以我的头像这样:
<head>
<title>My Mobile App</title>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1 maximum-scale=1" />
<link rel="stylesheet" href="http://code.jquery.com/mobile/1.2.0/jquery.mobile-1.2.0.min.css">
<script type="text/javascript" src="http://code.jquery.com/jquery-1.8.2.min.js"></script>
<script type="text/javascript" src="http://code.jquery.com/mobile/1.2.0/jquery.mobile-1.2.0.min.js"></script>
<meta name="apple-mobile-web-app-capable" content="yes" />
<meta name="apple-mobile-web-app-status-bar-style" content="black" />
<link rel="apple-touch-icon" href="images/icon57.png" />
<link rel="apple-touch-icon" sizes="72x72" href="images/icon72.png" />
<link rel="apple-touch-icon" sizes="114x114" href="images/icon114.png" />
<link rel="apple-touch-startup-image" href="images/icon320.png" />
<link rel="apple-touch-startup-image" sizes="768x1004" href="images/icon320.png" />
</head>
** if I comment the jquery.mobile script line the POST works **
POST的BODY看起来像这样:
<body>
<div data-role="page" id="index">
<header data-role="header" data-position="fixed">
<h1>Mobile APP</h1> …推荐指数
解决办法
查看次数
Delphi树视图在节点之间拖放
我希望允许用户按照自己喜欢的方式安排treeView的节点,但是我遇到了很多问题.例如:
- 在我做了一些拖放后,树视图停止响应,我必须杀死应用程序.此外,如果我开始拖动并放弃(按取消,或从我挑选它的地方放回)应用程序挂起...我不能做任何事情
- 如果用户想要重新排列作为同一主节点的子节点的3个节点的顺序,则他不能像在其他应用程序中那样执行它.为什么？是否有任何方法允许用户在BETWEEN 2其他节点中删除他的节点？Delphi似乎允许用户只在另一个上面点头.
这不好.我想要像这张照片中的行为
因此Node3的目的地应该在Node1和Node2之间.当然,节点的ON TOP应该是可用的,但是这个BETWEEN NODES功能也应该可用.
到目前为止我的代码是:
procedure TForm3.FormCreate(Sender: TObject);
begin
tv.FullExpand;
end;
procedure TForm3.tvDragDrop(Sender, Source: TObject; X, Y: Integer);
var
TargetNode, SourceNode : TTreeNode;
begin
with TV do
begin
TargetNode := GetNodeAt(X,Y); // Get target node
SourceNode := Selected;
if (TargetNode = nil) then
begin
EndDrag(False);
Exit;
end;
MoveNode(TargetNode,SourceNode);
SourceNode.Free;
end;
end;
procedure TForm3.tvDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if (Sender = TV) then // If TRUE than accept the draged …推荐指数
解决办法
查看次数
Delphi DBGrid alternate row colors for all DBGrids in the project
如何使表格中的所有网格看起来都相同？我想实现必须应用于项目的所有网格的备用行颜色。是否可以不为每个网格添加相同的 DrawColumnCell 事件代码？我想避免为每个网格添加相同的代码。我的项目中有大约 30 个网格，乘以 13 行代码，它只是向我的项目添加了很多代码行，使其“不友好”。我正在寻找一个只会向项目添加 13 行代码而不是 390 行代码的解决方案。
我的格式化代码如下所示（例如）：
procedure TDBGrid.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect;DataCol: Integer;Column: TColumn;State: TGridDrawState) ;
var
grid : TDBGrid;
row : integer;
begin
grid := sender as TDBGrid;
row := grid.DataSource.DataSet.RecNo;
if Odd(row) then
grid.Canvas.Brush.Color := clSilver
else
grid.Canvas.Brush.Color := clDkGray;
grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
end;
也许我需要以某种方式扩展 DBGrid，但我不知道到底如何也不知道如何在谷歌上寻找解决方案
我尝试像这样破解每个表单中的 DBGRid：
type
TDBGrid = class(DBGrids.TDBGrid)
protected
procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;Column: TColumn; State: TGridDrawState); override;
end;
...
procedure TDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;Column: …推荐指数
解决办法
查看次数
Delphi销毁动态控制onDestroy的父窗体
如何确保动态控件及其父窗体被销毁？
因此，从主窗体中，我为辅助窗体创建一个按钮，然后显示带有该按钮的辅助窗体。
现在，我要确保创建的按钮与辅助表单一起被销毁。
将按钮的父级设置为辅助表单就足够了吗？这样会吗？
我正在使用TButton类的自定义后代-TMyButton。所以在我的构造函数中，我有以下代码：
constructor TMyButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Self.OnClick := Self.MyButtonClick;
Self.Parent:=TWinControl(AOwner);
self.Visible := true;
end;
这样可以吗？它对我有用，它不会引发任何错误，但是我要确保所述按钮和放置它的表单一起被销毁。
MyButton将被放置在第二个表单上，比如说“ Form2”，因此将有如下代码：
var
bt:TMyButton;
begin
bt:=TMyButton.Create(Form2);
bt.Parent:=Form2;
...
form2.Show;
end;
推荐指数
解决办法
查看次数